CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Return the file portion of a file + pathname (in two ways)
Option Explicit
 
'Non FSO Method:

Public Function GetFileUsingNonFSO(ByVal sFileName As String) As String
    GetFileUsingNonFSO = Mid$(sFileName, InStrRev(sFileName, "\") + 1)
End Function
 
'FSO Method:

Public Function GetFileUsingFSO(ByVal sFileName As String) As String
'Set a reference to "Microsoft Scripting Runtime"
    Dim FSO As Scripting.FileSystemObject
    Set FSO = New Scripting.FileSystemObject
    GetFileUsingFSO = FSO.GetFileName(sFileName)
    Set FSO = Nothing
End Function