Urgente : Nome File Dal Path

[pascan2]

Salve, ecco il problema.
Leggo da un file di testo una stringa che contiene il path completo
di un file (percorso+nome file - es. c:\windows\temp\mio.tif), come posso fare per isolare solo il nome del file.

Grazie.

[s|n3]

x = split(tuavariabile,"\")

in x(3) troverai il nome del tuo file. se poi non sai la profondità del percorso cerca quale delle parti splittato contiene il "."

for i = 1 to ubound(x)
    if InStr(1,x(i),".",1)>0 then
       msgbox "il nome del file è " & x(i)
       exit for
    end if
next i

[iguana13]

Oppure, siccome anche il nome di una cartella può contenere "." puoi usare:

Private Function NomeFile(Percorso as String) as String
Dim Pos1 as Integer, Pos2 as Integer
Pos1 = 1
Do
    Pso2 = Pos1
    Pos1= Instr(Pos1 + 1,Percorso,"\")
Loop While Pos1
NomeFile = Right(Percorso, Len(Percorso) - Pos2)
End Function

[Sypher]

Oppure così:
percorso = "c:\windows\temp\mio.tif"
NomeFile = Right(percorso, Len(percorso) - InStrRev(percorso, "\"))

[iguana13]

Originariamente inviato da Sypher
Oppure così:
percorso = "c:\windows\temp\mio.tif"
NomeFile = Right(percorso, Len(percorso) - InStrRev(percorso, "\"))

Non sapevo che esistesse InStrRev! :metallica
Grande! :mavieni: