CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to get file name alone from a file name with its full path
Public Function ExtractFileName(ByVal strFileName As String)
    Dim intPos As Integer
    intPos = InStrRev(strFileName, "\")
    ExtractFileName = Right$(strFileName, Len(strFileName) - intPos)
End Function
 
'How can I use this function:
'Debug.Print ExtractFileName("C:\Temp\Test.txt")
'will return "Test.txt"