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

Yes, try this:

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

Dim directory As String
' Set a default location
directory = "C:\"

Set dialog = Application.FileDialog(msoFileDialogFilePicker)

 With dialog
.AllowMultiSelect = False
.InitialFileName = directory
.Show


If (.SelectedItems.Count = 0) Then
 Else
    filePath = .SelectedItems.Item(1)
    fileName = Right$(filePath, Len(filePath) - InStrRev(filePath, "\"))
    Me.Thumbnail = fileName
 End If
End With
End Sub