FileName (3)

Dim Percorso_Totale as String
Dim Nome_Del_File as String

Percorso_Totale = "C:\WINDOWS\TEMP.INI"

For i = Len(Percorso_Totale) To 1 Step -1
If Mid$(Percorso_Totale, i, 1) = "\" Then
Nome_Del_File = Mid$(Percorso_Totale, i + 1)
Exit For
End If
Next i

Msgbox Nome_Del_File