VB Snippet - File Name without Extension

[James Stanich]

Public Function FileNameWOExt(FileName As String) As String
 
     Dim i As Integer
 
     Dim lpFileName As String
     
     On Error Resume Next
     
     For i = Len(FileName) To 1 Step -1
 
       If Mid(FileName, i, 1) = "\" Then
 
         Exit For
 
       End If
 
     Next
     
     lpFileName = Mid$(FileName, i + 1)
 
     i = InStr(Mid(FileName, i + 1), ".")
 
     If i > 1 Then
 
      GetFileName = Mid(lpFileName, 1, i - 1)
 
     End If
 
End Function