076.从文件路径中取得文件名

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

'函数作用：从文件路径中取得文件名

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

Function FileName(FullName As Variant) As String

    Dim X%

    FileName$ = FullName

    X% = InStr(FullName, "\")

    Do While X%

        Ct% = X%

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

    Loop

    If Ct% > 0 Then FileName$ = Mid$(FullName, Ct% + 1)

End Function