getfilenamewithoutextention.txt

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

Private Function GetFileNameWithoutExtention(ByVal sStr As String) As String
    On Error Resume Next
    Dim i As Integer, b As Integer

    i = InStrRev(sStr, ".")
    b = InStrRev(sStr, "\")
    If i = 0 Then Exit Function
    GetFileNameWithoutExtention = Mid$(sStr, b + 1, Len(sStr) - i)
End Function