Mappe information

Jeg prøver lave et lille script som løber en mappe igennem, og tæller hvor mange filer/undermapper der er og skrive det til en fil. Jeg kunne godt tænke mig at hvis jeg prøver at "scanne" en mappe f.eks. c:\test, at den så returnerer en liste over alle mapper i c:\test i første niveau, og hvor mange filer/underbiblioteker der er ialt.

Så hvis jeg har en struktur der ser sådan her ud
C:\Test
      \Temp
            \SubTemp1
      \Temp2
            \SubTemp3
Så skulle programmet returnere

Temp , antal subdirs, antal filer
Temp2, antan subdirs, antal filer

Jeg har prøvet at lave det rekursivt, men kan ikke få den til at stoppe rekursionen rigtigt, så jeg får info på alle mapper, og ikke kun mapper i 1 niveau :(
Her er koden jeg har skrevet indtil videre.

Dim DirFolder, filecount
sStartPath = "h:\bruger\ace"

set oShell = CreateObject("WScript.Shell")

Set oFSO = CreateObject("Scripting.FileSystemObject")

sLog = "log.txt"

Set f = oFSo.CreateTextFile(sLog, True)


ListFolders(sStartPath)

Sub ListFolders(sPath)
Set oFolder = oFSO.GetFolder(sPath)

f.Writeline oFolder


f.Writeline "File count: " & oFolder.Files.Count
filecount = oFolder.Files.Count + filecount
DirFolder = oFolder.SubFolders.Count + DirFolder
f.writeline "Number of Directories:.." & oFolder.SubFolders.Count
f.writeline


For Each oFldr In oFolder.SubFolders
Stop
ListFolders oFldr.Path

'DirFolder = oFldr.SubFolders.Count + DirFolder

f.Writeline
Next

End Sub
f.Writeline "test: " & DirFolder
f.Writeline "test2: " & filecount
oShell.run"log.txt"