For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFileName = Mid$(strFileName, I + 1)
Exit Function
End If
Next I
GetFileName = strFileName
End Function
'strFileName为包含路径的文件名
调用:
Msgbox "文件名为 " & GetFileName("C"\myFolder\txt1")