CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to get the folder name alone from a file name
Public Function ExtractFolderName(ByVal strFileName As String)
    Dim intPos As Integer
    intPos = InStrRev(strFileName, "\")
    ExtractFolderName = Left$(strFileName, intPos - 1)
End Function
 
'How can I use this function:
'Debug.Print ExtractFolderName("C:\Temp\Test.txt")
'will return "C:\Temp"