VB Code:
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
