Public Function GetFileName(sFile As String) As String
'传入带全路径的字符串,返回文件名
Dim i As Long, s As String, s1 As String
s1 = StrReverse(sFile)
For i = 1 To Len(sFile)
s = Mid(s1, i, 1)
If s = "/" Then
GetFileName = StrReverse(Left(s1, i - 1))
Exit For
End If
Next
End Function
Public Function GetFilePath(sFile As String) as String
'传入带全路径的字符串,返回文件路径
Dim i as long, ss() As String
ss = Split(sFile , "/") i = Len(ss(UBound(ss)))
GetFilePath= Left(sFile , Len(sFile ) - i)
End Function
方法二:
用InStrRev函数
描述
返回一个字符串在另一个字符串中出现的位置,从字符串的末尾算起。
Public Function GetFilePath(sFile As String) as String
'传入带全路径的字符串,返回文件路径Dim i As Long
i = InStrRev(sFile, "/")
GetFilePath = Left(sFile, i - 1)
End Function