• Home
 · 
• Files/File Controls/Input/Output
 · 
• Retrieve a file name without the extension

Retrieve a file name without the extension

Retrieve a file name without the extension

Rate Retrieve a file name without the extension

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Parses the filename out of a directory string
'Returns the FileName w/o the extension
     Dim i As Integer
     Dim lpFileName As String
     
     On Error Resume Next
     
     For i = Len(fname) To 1 Step -1
       If Mid(fname, i, 1) = "\" Then
         Exit For
       End If
     Next
     
     lpFileName = Mid$(fname, i + 1)
     i = InStr(Mid(fname, i + 1), ".")
     If i > 1 Then
      GetFileName = Mid(lpFileName, 1, i - 1)
     End If
End Function