CodeItBetter Programming Another VB Programming Blog

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

'Method 1:
Public Function GetFileWithExtensionUsingNonFSO(ByVal sFileName As String) As String
    sFileName = Mid$(sFileName, InStrRev(sFileName, "\") + 1)
    GetFileWithExtensionUsingNonFSO = Left$(sFileName, InStrRev(sFileName, ".") - 1)
End Function
 
'Method 2:
Public Function GetFileWithExtensionUsingNonFSO1(ByVal sFileName As String) As String
    Dim iStartPos As Integer, iEndPos As Integer
    iStartPos = InStrRev(sFileName, "\") + 1
    iEndPos = InStrRev(sFileName, ".")
    GetFileWithExtensionUsingNonFSO1 = Mid$(sFileName, iStartPos, iEndPos - iStartPos)
End Function
 
'FSO Method:

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