ricavare nome file da percorso

[iguana13]

Semplicemente trovi l'ultima barra:

Sub NomeFile(Percorso)

Dim i as integer, Prima as integer,dove as integer
dove=1
do
   prima=dove
   dove=instr(dove+1,percorso,"\")
until dove=0

nomefile=right(percorso,len(percorso)-dove)
end sub