Impostazione predefinita di una cartella per FileDialog in VBA

Question

Private Sub Command93_Click() 

    Dim f As Object 
    Dim strFile As String 
    Dim strFolder As String 
    Dim varItem As Variant 
    Dim P As String 
    Dim DeleteEverything As String 

     DoCmd.SetWarnings False 
     DeleteEverything = "DELETE * FROM [TABLE]" 
     DoCmd.RunSQL DeleteEverything 

    Set f = Application.FileDialog(3) 
    f.AllowMultiSelect = False 
    If f.Show Then 
     For Each varItem In f.SelectedItems 
      strFile = Dir(varItem) 
      strFolder = Left(varItem, Len(varItem) - Len(strFile)) 
      P = strFolder & strFile 
     Next 
    End If 
    Set f = Nothing 

     DoCmd.TransferText acImportFixed, "[IMPORT SPECIFICATION]", "[TABLE]", P, False 

End Sub 

La mia domanda è come rendere il FileDialog predefinito su una cartella specifica quando si apre inizialmente?

Grazie in anticipo per qualsiasi aiuto in questa materia

Answer 1

Aggiungere il percorso della cartella (compresa la finale \) per InitialFileName. Ad esempio, per aprire la finestra nella home directory dell'utente fare:

f.InitialFileName = Environ("USERPROFILE") & "\" 

Se si dimentica il trailing \, allora la finestra di dialogo ancora aperta nella cartella corretta, ma il nome della cartella apparirà anche come il nome del file selezionato di default. Quindi la finestra di dialogo cercherà una sottocartella con lo stesso nome, che di solito non esiste.

Answer 2

Oppure, prima di aprire la finestra di dialogo, è sufficiente modificare la directory del file deault con:

Application.Options.DefaultFilePath(wdDocumentsPath) = "your\path\here"