Ho già cercato nel forum ma non ho trovato nulla che i serva.

Data una cartella come accedo a tutti i file e a tutte le sottocartelle (non devo fermrmi al primo livello, ma proseguire finchè ci sono file e cartelle)?

Questo è il mio codice di partenza:

codice:
Sub AllFolders(folderspec)
    Dim fs, f, f1, s, sf
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set sf = f.SubFolders
    For Each f1 In sf
    '.....
    '.....
    Next
End Sub
Ma questo ovvimante si ferma al primo livello...