• Home
 · 
• String Manipulation
 · 
• A very efficient way to return a file name from a full path.

A very efficient way to return a file name from a full path.

A very efficient way to return a file name from a full path.

Rate A very efficient way to return a file name from a full path.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Purpose: Convert a string from a fully qualified path to a file name.
' In:       strPathName         - The fully qualified path
' Out: None
' Date: 8/13/1999
' Programmer: Ian Lent
' Last Modified:
    Dim lngIndex As Long            ' Backslash character positon
    Dim strRemnant As Variant       ' What remains after trimming off
                                    ' everything to the left
                                    ' of the last backslash character.
    
    strRemnant = strPathName
    
    Do
        lngIndex = InStr(strRemnant, "\")
        If lngIndex = 0 Then Exit Do    ' There are no more backslash characters: we have the name.
        strRemnant = Right$(strRemnant, Len(strRemnant) - lngIndex)
    Loop
    
    FileNameOnly = strRemnant           ' Sock it to me!
End Function