Setting Default folder for Filepicker Dialog box

[Matharu]

How can i change the default folder in the FilePicker OR FileOpen Dialog Box?
Currently i'm using the following code to open it but it always opens with the desktop....

fileopen = True
 
Dim dlgopen As FileDialog
Set dlgopen = Application.FileDialog(msoFileDialogOpen)
Do
With dlgopen
    .AllowMultiSelect = False
    .Title = "Select File to Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls", 1
    If .Show = -1 Then
        For Each fpath In .SelectedItems
            importpath = fpath
        Next fpath
    Else
        choice = MsgBox("You have not selected a file." & vbCrLf & vbCrLf & "Quit Application?", vbYesNo, "File not selected")
        If choice = vbYes Then
            DoCmd.Quit
        End If
        fileopen = False
    End If
End With
Loop While fileopen = False
Set dlgopen = Nothing

 

[Legacy 68668]

Have you tried something like

With dlgopen
    .AllowMultiSelect = False
    .Title = "Select File to Import"
    .Filters.Clear
    .Filters.Add "Excel Files", "*.xls", 1
    .InitialFilName = "c:\*"

 

[Matharu]

Hi Seiya, Thanks a lot. It Worked.

 

[JoeDBugger]

I thank you, also. I've been searching for this answer for about 5 hours today! I tried it with one change. That is, ".InitialFilName" to ".InitialFileName" for Excel 2003 VBA. It worked!!

 

[Matharu]

Np man. even i had to do that in my code...