078.取得一个文件的路径

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

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

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

Function FilePath(FullName As Variant) As String

    Dim X%, Ct%

    FilePath$ = FullName

    X% = InStr(FullName, "\")

    Do While X%

        If X% > 0 Then FilePath$ = Left$(FullName, X%)

        X% = InStr(X% + 1, FullName, "\")

    Loop

End Function