Public Function GetFile02(sFile As String) As String
' by Donald, donald@xbeat.net, 20001010
Dim iPos As Long
Dim iPosPrev As Long
' search last backslash
Do
iPosPrev = iPos
iPos = InStr(iPos + 1, sFile, "\", vbBinaryCompare)
Loop While iPos > 0
If iPosPrev > 0 Then
GetFile02 = Mid$(sFile, iPosPrev + 1)
Else
GetFile02 = sFile
End If
End Function
|