getfileextention.txt

一部分关于VB编程的小技巧

Public Function GetFileExtention(ByVal sStr As String) As String
    On Error Resume Next
    Dim i As Integer

    i = InStrRev(sStr, ".")
    If i = 0 Then Exit Function
    GetFileExtention = Mid$(sStr, i + 1, 12)
End Function