从一个包含路径的文件名中去除文件名，只保留路径（目录名）

时　间:2018-11-16 20:30:28
作　者:李志能   ID：29924  城市：文山
摘　要:从一个包含路径的文件名中去除文件名，只保留路径（目录名）
正　文:

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