Elencare il contenuto di una cartella

[Lak3d]

usando il metodo SubFolders...

Set Sf=file2.SubFolders
For each F in Sf
   str=str+F.name+vbcrlf
Next