CodeItBetter Programming Another VB Programming Blog

'System & API - How to Make a Common Dialog start in its last location
Option Explicit
 
Private Sub cmdOpenFile_Click()
    Dim file_name As String
 
    dlgFile.CancelError = True
    dlgFile.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly Or cdlOFNExplorer Or cdlOFNLongNames
 
    On Error Resume Next
    dlgFile.ShowOpen
 
    If Err.Number = cdlCancel Then
        ' The user canceled.
        Exit Sub
    ElseIf Err.Number <> 0 Then
        ' Unknown error.
        MsgBox "Error " & Format$(Err.Number) & " selecting file." & vbCrLf & Err.Description
        Exit Sub
    End If
    On Error GoTo 0
 
    ' Do something with the file.
    file_name = dlgFile.FileName
    dlgFile.InitDir = Left$(file_name, Len(file_name) - Len(dlgFile.FileTitle) - 1)
 
    txtFiles.Text = file_name & vbCrLf & txtFiles.Text
End Sub
 
Private Sub Form_Load()
    ' Start in the current directory.
    dlgFile.InitDir = App.Path
End Sub