Voglio stampare a video i file contenuti in un albero a due livelli di cartelle:
path = "C:\prova"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(path)
Set subfolder = folder.Subfolders
For Each elemFolder In subfolder
frmInizio.lista.AddItem elemFolder
Set file = elemFolder.files
For Each elemFile In file
frmInizio.lista.AddItem elemFile
Next
Next
mi dice che file = necessita di un oggetto?![]()
![]()