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