077.取得一个文件的扩展名

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

'函数作用：取得一个文件的扩展名

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

Function Extension(FullName As Variant) As String

    Dim X%

    Extension$ = FullName

    X% = InStr(FullName, "\")

    Do While X%

        Ct% = X%

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

    Loop

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

    X% = InStr(Extension, ".")

    If X% > 0 Then

        Extension = Mid$(Extension, X% + 1)

    Else

        Extension = vbNullString

    End If

End Function