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

[ffejy]

Here's my way

Function GetFileName (FileName As String) As String
  FileName = StrReverse(FileName)
  Dim Pieces() As String
  Pieces() = Split(FileName, "\", 2)
  GetFileName = StrReverse(Pieces(0))
End Function

[Hawk]

There are some errors in you code ffejy - On the array. Very unique method once it worked.


I like to use something like this.

MsgBox Mid(FileName, InStrRev(FileName, "\") + 1)

[ffejy]

Oops, thanks for pointing that out Hawk, fixed now. Your method is the shortest