'###############################################################
'函数作用:取得一个文件的路径 2
'###############################################################
Function getPath(fullName As String) As String
Dim varVar As Variant
varVar = Split(fullName, "\")
varVar(UBound(varVar)) = ""
getPath = Join(varVar, "\")
End Function
联系客服