sub estrai(dir)
Set oFilesys = CreateObject("Scripting.Filesystemobject")
Set oFolder = oFilesys.GetFolder(dir)
Set oFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each f In oFiles
List1.AddItem(f.Path)
Next
For Each Item in oFolders
call estrai(Item.Path)
Next
end sub


Così va meglio ?