代码 如下:
Dim arr
Dim i As Long
arr = Split(absPath, Chr(0))
i = InStrRev(arr(0), "/")
If i > 0 Then
filePath = Left(arr(0), i - 1)
fileName = Right(arr(0), Len(arr(0)) - i)
End If
其中,absPath为绝对路径
Dim arr
Dim i As Long
arr = Split(absPath, Chr(0))
i = InStrRev(arr(0), "/")
If i > 0 Then
filePath = Left(arr(0), i - 1)
fileName = Right(arr(0), Len(arr(0)) - i)
End If
其中,absPath为绝对路径