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