CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to get the file name without its extension and path
Public Sub MyFile()
    'You need to set reference to Microsoft Scripting Runtime
    Dim strFile As String
    Dim fso As Scripting.FileSystemObject
    Set fso = New FileSystemObject
 
    strFile = "C:\Temp\Test.txt"
 
    Debug.Print fso.GetBaseName(strFile)
End Sub