Access & C.

matlock22 scrive per avere delucidazioni su come fare a visualizzare in una maschera la lista delle sottodirectory e dei file di una data directory. Provate questo frammento di codice

Option Compare Database
Option Explicit

Private Sub mostraFile(x As String)
    ' cancella il contenuto precedente
    Me.R_Dir.RowSourceType = "Elenco Valori"
    Me.R_Dir.RowSource = ""
    Me.R_File.RowSourceType = "Elenco Valori"
    Me.R_File.RowSource = ""
    
    ' apertura della directory X
    Dim fs As Scripting.FileSystemObject
    Dim f As Folder
    Dim f1 As File
    Dim ff As Files
    Dim dd As Folders
    Dim fd As Folder
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(x)
    Set ff = f.Files
    ' prima i file
    For Each f1 In ff
                    Me.R_File.AddItem (f1.Name)
    Next
    
    ' poi le sottodirectory
    Set dd = f.SubFolders
    For Each fd In dd
        Me.R_Dir.AddItem (fd.Name)
    Next
    Me.R_Dir.Requery
    Me.R_File.Requery
End Sub

Ho anche realizzato un piccolo esempio da scricare e da eseguire. Mettere la directory di partenza nella casella di controllo Home e si vedranno nei due elenchi inferiori le sottcartelle ed i file. download Ok? Ciao.