CodeItBetter Programming Another VB Programming Blog

'File/Folder Handling - How to get the file path for the selected file using Common Dialog control
Option Explicit
 
'Insert a Common Dialog Control on your form and add the following code:

Private Sub Command1_Click()
    With CommonDialog1
        .Flags = cdlOFNNoValidate
        .FileName = "*.*"
        .ShowOpen
        Debug.Print .FileName 'Filename with Full path
        Debug.Print .FileTitle 'Filename without path
        Debug.Print returnPathOfFile(.FileName) 'only File path
    End With
End Sub
 
Private Function returnPathOfFile(ByVal strFile As String) As String
    returnPathOfFile = Left(strFile, InStrRev(strFile, "\"))
End Function