Public Function GetFilePath(AllFileName As String) As Variant
'从一个包含路径的文件名中去除文件名,只保留路径(目录名)
'函数调用方法:
'GetFilePath(AllFileName)
'参数AllFileName代表一个包含路径的文件名
'返回值:成功返回路径名(后尾带"\"符)字符串,不成功返回null
Dim i As Integer
Dim tmpStr As String
Dim tmpFilePath As Variant
tmpFilePath = Split(AllFileName, "\")
GetFilePath = ""
If PathFileExists(AllFileName) Then
For i = 0 To (UBound(tmpFilePath) - 1)
GetFilePath = GetFilePath & tmpFilePath(i) & "\"
Next
Else
GetFilePath = Null
End If
End Function