GetOpenFileName Default Directory?

[FilipT]

How can I set a default directory to be shown once i run the getopenfilename method so i dont have to browse through folders to get to the desired one? All help appreciated

 

[lokiluke]

this has been ripped out of one of my macros:

ChDrive "G:\"
    ChDir "g:\Underground\Operations\Job Allocation Sheets\Daily Job Status sheet A4\"
    strFile = Application.GetOpenFilename

the file the user selects will be in strFile

 

[tweedle]

perform a ChDir before the GetOpenFilename

 

[Kenneth Hobson]

Here is another method.

Sub Test()
  MsgBox FileOpen("x:\", "Kens Files", "*.xls; *.xlsx; *.xlsm")
End Sub


Function FileOpen(initialFilename As String, _
  Optional sDesc As String = "Excel (*.xls)", _
  Optional sFilter As String = "*.xls") As String
  With Application.FileDialog(msoFileDialogOpen)
    .ButtonName = "&Open"
    .initialFilename = initialFilename
    .Filters.Clear
    .Filters.Add sDesc, sFilter, 1
    .Title = "File Open"
    .AllowMultiSelect = False
    If .Show = -1 Then FileOpen = .SelectedItems(1)
  End With
End Function

 

[FilipT]

Worked great, thank you for your help!

 

[Ray_Dem]

Thanks a lot