Set default file browse location VBA

Question

I have the following VBA code that browses for a file name within MS ACCESS form:

Private Sub Command64_Click()
Dim dialog As FileDialog
Dim filePath As String
D         


        

Answer 1

You can make use of the InitialFileName property of the FileDialog method.

Private Sub Command64_Click()
    Dim dialog As FileDialog
    Dim filePath As String
    Dim fileName As String

    Set dialog = Application.FileDialog(msoFileDialogFilePicker)

    With dialog
        .AllowMultiSelect = False
        .InitialFileName = "C:\yourFolderNameHere\"
        .Show
        If .SelectedItems.Count <> 0 Then
            filePath = .SelectedItems.Item(1)
            fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\"))
            Me.Thumbnail = fileName
        End If
    End With
End Sub