Hvordan kan man tælle alle filer og mapper i alle sub mapper

Det må være noget i stil med:
--------------------------------------------
Function CountFiles(DirStart)
  Set objFSO = CreateObject("Scripting.FileSystemObject").GetFolder(DirStart)
  For Each Item in objFSO.Files
    strCount = strCount+1
  Loop
  For Each Item in objFSO.SubFolder
    strCount = strCount+1
    CountFiles(Item.Path)
  Loop
End Function

strCount=0
CountFiles("/startmappe/")
Response.Write CountFiles

Hov!
For Each Item in objFSO.SubFolder
skulle være
For Each Item in objFSO.SubFolders

For Each Item in objFSO.Files
    strCount = strCount+1
  Loop
kan være:
  strCount=strCount+objFSO.Files.Count

Og:
Response.Write CountFiles
skulle have været:
Response.Write strCount

Dvs.:
-------------------------------------------
Function CountFiles(DirStart)
  Set objFSO=CreateObject("Scripting.FileSystemObject").GetFolder(DirStart)
  strCount=strCount+objFSO.Files.Count
  For Each Item in objFSO.SubFolders
    strCount=strCount+1
    CountFiles(Item.Path)
  Loop
End Function

strCount=0
CountFiles("/startmappe/")
Response.Write strCount

Og en, der også lige lukker objFSO :)
-----------------------------------
Function CountFiles(DirStart)
  Set objFSO=CreateObject("Scripting.FileSystemObject").GetFolder(DirStart)
  strCount=strCount+objFSO.Files.Count
  For Each Item in objFSO.SubFolders
    strCount=strCount+1
    CountFiles(Item.Path)
  Loop
  Set objFSO=Nothing
End Function

strCount=0
CountFiles("/startmappe/")
Response.Write strCount

Hejsa det er rigtigt..

Byttede bare Loop ud med next...
Men nu tæller den måde filer og mapper.
Kan den tælle dem op hver for sig?
Ellers virker det bare...

Jep.

Function CountFiles(DirStart)
  Set objFSO=CreateObject("Scripting.FileSystemObject").GetFolder(DirStart)
  strCountFiles=strCountFiles+objFSO.Files.Count
  For Each Item in objFSO.SubFolders
    strCountFolders=strCountFolders+1
    CountFiles(Item.Path)
  Loop
  Set objFSO=Nothing
End Function

strCountFiles=0
strCountFolders=0
CountFiles("/startmappe/")
Response.Write "Filer: "&strCountFiles
Response.Write "Mapper: "&strCountFolders

I stedet for at tælle en fil ad gangen via en loop, hvorfor så ikke få antallet direkte via:

objST.Files.Count

Giver du ikke lige et svar..så jeg kan give nogen point

Jepper. Dejligt :)

Danke!