Sapere l'estenzione dato un percorso

[webporta.it]

Salve!
Come faccio a sapere di che tipo è un file sapendo solo il percorso completo dello stesso...??
Grazie

[IKON]

  
  Do
    i% = i1%
    i1% = InStr(i% + 1, file$, ".")
  Loop While i1% > 0
  
  If i% = 0 Then
    FileEst$ = ""
  Else
    FileEst$ = Mid$(file$, i%)
  End If

:mavieni:

[webporta.it]

ma che è sta roba??
Quale sarebbe la variabile che contiene il percorso?

[IKON]

con un po di fantasia:

File è la variabile string (file$) che contiene il percorso completo
FileEst è la variabile string (fileEst$) che contiene L'estensione

Provare per credere!!!

[Sypher]

a = "c:\file.asp"
b = InStrRev(a, ".")
estensione = Right(a, Len(a) - b)

[webporta.it]

Originariamente inviato da Sypher
a = "c:\file.asp"
b = InStrRev(a, ".")
estensione = Right(a, Len(a) - b)

Magari...Mica ce l'ho l'estenzione finale
ho solo c:\file <<<== devo riuscire a capire di che tipo è...

[webporta.it]

Originariamente inviato da IKON

  
  Do
    i% = i1%
    i1% = InStr(i% + 1, file$, ".")
  Loop While i1% > 0
  
  If i% = 0 Then
    FileEst$ = ""
  Else
    FileEst$ = Mid$(file$, i%)
  End If

:mavieni:

non mi funge

[FinalFantasy]

Originariamente inviato da webporta.it
Magari...Mica ce l'ho l'estenzione finale
ho solo c:\file <<<== devo riuscire a capire di che tipo è...

Se prendi un file testo e gli cambi l'estensione in .exe, win riconosce come eseguibile. Se non ha estensione, win nn riconosce quel file affinche tu nn glielo dici. Credo che nn puoi fare quello che nn fa win

[IKON]

Comunque il mio sistema funziona!!!

Anche se il file ha una doppia estensione tipo c:\file.dat.bak la mia funzione restitusce .bak