[VB6] Problema Fso

[kalavinus]

Buonasera a tutti voi smanettoni. Il mio problema è banalissimo, però non riesco a capire come mai succede. Sembra tutto ok. Allora. Dovrei visualizzare in una listbox il contenuto di una directory(comprese le sottodirectory).

Chiamando con "dir" il percorso della directory da ispezionare , ho:

dir="c:\blablabla"
call estrai(dir)
sub estrai(dir)
Set oFilesys = CreateObject("Scripting.Filesystemobject")
Set oFolder = oFilesys.GetFolder(dir)
Set oFolders = oFolder.SubFolders
Set oFiles = oFolder.Files
For Each item In oFolders
Item2 = 0
For Each Item2 In oFiles
List1.AddItem (dir & "\" & Item2.Name)
Next
estrai (item)
Next
Item2 = 0
For Each Item2 In oFiles
List1.AddItem (dir & "\" & Item2.Name)
Next
end sub

I files vengono visualizzati tutti, su questo non c'è problema. Però molte volte visualizza 4-5 volte gli stessi files. Sto impazzendo, aiutatemi. Un saluto a tutti voi

[Corwin]

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 ?