Aprire "seleziona cartella"

Question

(Access 2007 + ADP)

Ciao,

via codice VBA salvo un file su disco.

Vorrei dare all'utente la possibilità di selezionare la cartella di destinazione ed inoltre passare al controllo che mostra le cartelle

la directory di partenza da cui esplorare.

Si può ?

grazie.

Marco Bosco

Answer 1

Ciao Marco,

probabilmente non hai guardato l'help di filedialog come ti avevo suggerito.

Se lo avessi fatto avresti visto che tra gli enumerativi di filedialog esiste msoFileDialogFolderPicker.

Bastava cambiare il codice che ti ho proposto in questo modo

    Set fd = Application.FileDialog(msoFileDialogFolderPicker)

    With fd

            .InitialFileName = "C:\NomeFile.Estensione"        'Qui definisci la directory di partenza e, se vuoi, il nome predefinito del file

            .Title = "Sfoglia cartelle"

            .ButtonName = "Ok"

            .AllowMultiSelect = False

            .InitialView = msoFileDialogViewDetails

            .Show

            For Each objfl In .SelectedItems

                FileName = objfl

            Next objfl

    End With

NomeDirectory = FileName

David

Answer 2

Grazie.

Answer 3

Scusate,

devo far selezionare una cartella all'utente e non un salvataggio di file.

FileDialog prevede invece la selezione di un file per il salvataggio.

Come posso recuperare una directory ?

grazie.

marco

Answer 4

Scusate,

devo selezionare una cartella e non un file.

Application.FileDialog prevede la selezione di un file ...come posso recuperare la directory?

grazie

Answer 5

Ciao Marco,

puoi usare la proprietà File Dialog:

inserisci in vba i riferimenti alla libreria Microsoft office 12.0 Object Library

e poi per esempio usa questo codice dietro  il pulsante per sfogliare le cartelle:

    Set fd = Application.FileDialog(msoFileDialogSaveAs)

    With fd

            .InitialFileName = "C:\NomeFile.Estensione"        'Qui definisci la directory di partenza e, se vuoi, il nome predefinito del file

            .Title = "Salva con nome il file"

            .ButtonName = "Ok"

            .AllowMultiSelect = False

            .InitialView = msoFileDialogViewDetails

            .Show

            For Each objfl In .SelectedItems

                FileName = objfl

            Next objfl

    End With

Nell'help troverari ulteriori dettagli.

David