getfileextention.txt

来自「一部分关于VB编程的小技巧」· 文本 代码 · 共 8 行

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