取得文件扩展名

'取得扩展名

Private function GetFileExt(FullPath)
If FullPath <> "" Then
    GetFileExt = mid(FullPath,InStrRev(FullPath, ".")+1)
    Else
    GetFileExt = ""
End If
End function