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 |