Selezione directory da form access

di manugonn il
5 risposte
Buonasera,

avrei necessità di selezionare una directory da una finestra di dialogo. Attualmente riesco a selezionare un file da una cartella tramite questo codice:

"Private Sub Comando2_Click()
On Error GoTo gest_errore
Dim Finestra As FileDialog
Dim Valore, vrtselecteditem
Set Finestra = Application.FileDialog(msoFileDialogOpen) 'Equivale a 1
Finestra.Title = "Cartella XML"
Finestra.Filters.Clear
Finestra.InitialFileName = "C:\Fatturexml\"
Finestra.Filters.Add "File XML", "*.xml", 1
Finestra.AllowMultiSelect = False
Valore = Finestra.Show
Valore = ""
For Each vrtselecteditem In Finestra.SelectedItems
Valore = vrtselecteditem
Next vrtselecteditem
Me.xml = Trim(Valore)
Exit_pulsante:
Exit Sub
gest_errore:
If Err.Number > 0 Then
MsgBox Err.Description
End If
Resume Exit_pulsante
End Sub"

In questo modo posso selezionare un singolo file da assegnare nella variabile Me.xlm

Avrei invece necessita di poter selezione il nome di una cartella da assegnare ad una variabile a video.

Grazie a tutti in anticipo

5 Risposte

  • Cosa dice la guida in merito a FileDialog...?
    https://docs.microsoft.com/it-it/office/vba/api/overview/library-reference/filedialog-members-office

    In particolare relativamente a DialogType...?
    Che espone per l'appunto le modalità di apertura dell'oggetto, tra cui quella che hai usato tu [msoFileDialogOpen]...

    Trovo ad esempio: [msoFileDialogFolderPicker] che vale 4...
    
    msoFileDialogFolderPicker 	4 	Folder Picker dialog box.
    Assomiglia vagamente a quello che stai chiedendo...?
  • Grazie Alex, faccio qualche prova e ti faccio sapere
  • Purtroppo utilizzando ad esempio "msoFileDialogFolderPicker" mi restituisce l'errore "proprietà o metodo non supportata dall'oggetto"...
  • Grazie gli do un'occhiata.
Devi accedere o registrarti per scrivere nel forum
5 risposte