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?