Ottenere il nome di un file a partire da un percorso

Dim intPos as Integer
Dim intPosSave as Integer

intPos = 1
Do
intPos = InStr(intPos, ScanString, “\”)
If intPos = 0 Then
Exit Do
Else
intPos = intPos + 1
intPosSave = intPos – 1
End If
Loop
GetFileName = Trim$(Mid$(ScanString, intPosSave + 1))