CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Retrieve the File Name from a Path
Option Explicit
 
Public Function GetFileName(FilePath As String) As String
    Dim slashLocation As Integer
 
    On Error GoTo GetFileName_Error
 
    If Len(FilePath) = 0 Then
        GetFileName = ""
        Exit Function
    End If
 
    'Find the last \ in the path
    slashLocation = InStrRev(FilePath, "\")
 
    GetFileName = Mid$(FilePath, slashLocation + 1, Len(FilePath) + 1 - slashLocation)
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
GetFileName_Error:
    GetFileName = ""
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure GetFileName of Form Form1"
End Function