[VB6] FileSystemObject e ListCount

[quartutek]

Ciao
Vorrei leggere dei file dentro una cartella e non voglio usare FileListBox ma usare FIleSYStemObject.

Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(cartella)
Set sf = f.files
For Each f1 In sf
s = f1.Name
next

Come FAccio a sapere quanti files contiene la cartella?

[jabjoint]

Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("\")
Set sf = f.Files

For Each f1 In sf
s = f1.Name
nf = nf + 1
Next

MsgBox nf


se devi saperlo prima.... non lo so
cmq dimmi che devi fare magari posso aiutarti