VB Snippet - File Name from Path

[James Stanich]

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