088.取得一个文件的路径 2

'###############################################################

'函数作用：取得一个文件的路径 2

'###############################################################

Function getPath(fullName As String) As String

    Dim varVar As Variant

    varVar = Split(fullName, "\")

    varVar(UBound(varVar)) = ""

    getPath = Join(varVar, "\")

End Function