Défaut un dossier pour FileDialog en VBA

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

Ma question est comment faire la FileDialog par défaut pour un dossier spécifique quand il ouvre au départ?

Merci d'avance pour toute aide dans cette affaire

Découvrez le code fourni ici: stackoverflow.com/questions/9399651/...

OriginalL'auteur Chuck | 2013-06-04

  1. 41

    Ajouter le chemin du dossier (y compris la fuite \) à InitialFileName. Par exemple, pour ouvrir la boîte de dialogue dans le répertoire home de l'utilisateur à faire: 

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

    Si vous oubliez de fuite \,
    ensuite, la boîte de dialogue toujours ouvert dans le bon dossier,
    mais le nom du dossier apparaît également que la valeur par défaut nom de fichier sélectionné.
    Ensuite, la boîte de dialogue seront à la recherche d'un sous-dossier avec le même nom, qui d'habitude n'existe pas.

    C'est une bonne astuce. J'ai essayé ChDir et il n'a eu aucun effet ici.
    Je pense que Application.PathSeparator au lieu de "\" sera mieux

    OriginalL'auteur Chuck

  2. -1

    Ou, avant l'ouverture de la boîte de dialogue, il suffit de changer l'option par défaut du fichier de répertoire avec:

    Application.Options.DefaultFilePath(wdDocumentsPath) = "your\path\here"
    Ce code est bon seulement pour une utilisation avec MS Word, les OP se pose au sujet de MS Access

    OriginalL'auteur KathyM