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