[vba] contenuto di una cartella

[Luciano79]

Si, ti posto l'esempio riportato dalla guida di VBA

MyPath = "c:\"    ' Imposta il percorso.
MyName = Dir(MyPath, vbDirectory)    ' Recupera la prima voce.
Do While MyName <> ""    ' Avvia il ciclo.
    ' Ignora la directory corrente e quella di livello superiore.
    If MyName <> "." And MyName <> ".." Then
        ' Usa il confronto bit per bit per verificare se MyName è una directory.
        If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Visualizza la voce solo
        End If    ' se rappresenta una directory.
    End If
    MyName = Dir    ' Legge la voce successiva.
Loop

Sicuro che la variabile Percorso sia corretta? (Deve terminare con "\")