|
Public Sub GetFileNameTest()
MsgBox GetFileName("C:\text.txt")
End Sub
Function GetFileName(ByVal Path As String) As String
Dim I As Integer
For I = Len(Path) To 1 Step -1
If Mid(Path, I, 1) = Application.PathSeparator Or Mid(Path, I, 1) = ":" Then Exit For
Next I
GetFileName = Right(Path, Len(Path) - I)
End Function
|