CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to Retrieve the Filepath from a Path
Option Explicit
 
Public Function GetFilePath(ByVal FilePath As String) As String
    Dim slashLocation As Integer
 
    On Error GoTo GetFilePath_Error
 
    If Len(FilePath) = 0 Then
        GetFilePath = ""
        Exit Function
    End If
 
    'Find the last \ in the path
    slashLocation = InStrRev(FilePath, "\")
 
    If slashLocation = 0 Then
        GetFilePath = ""
    Else
        GetFilePath = Mid$(FilePath, 1, slashLocation)
    End If
 
ExitHere:
    On Error GoTo 0
    Exit Function
 
GetFilePath_Error:
    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure GetFilePath of Form Form1"
End Function