numeros de ficheros en una carpeta

[engonga]

hola estoy haciendo un script para saber el numero de ficheros en una carpeta

Código HTML:

 dim objFSO, objF, objFC, objFL  
   dim f1, w, h, c, strType, mostranom, folder, nomcarpeta, num
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   Set objF = objFSO.GetFolder(Server.MapPath("../imatges_productes/"))
   
   Set objFC = objF.Subfolders
  
 
   For Each folder in objFC
   
     
  
  
   nomcarpeta= folder.name
   Set objFL = folder.Files
  For Each fl in objFL
  num = num + 1
   next
        response.write  nomcarpeta & "("&num &") <br>"
  
   Next
 
   set objFC = nothing
   set objF = nothing
   set objFSO = nothing
  

con este fichero muestro todas las carpetas que hay en "imatges_productes"

y lo que estoy intentando es que me muestre el numero de ficheros que hay en cada carpeta

ahora me sale

marcas (2) <-- que es correcto
productos (3) <-- que no es correcto por que me suma los de la carpeta marcas + los productos


alguien sabe que puede estar pasando?

[tammander]

Despues de

response.write nomcarpeta & "("&num &") <br>"

pon

num = 0


;)



Un saludo

[engonga]

gracias problemilla solucionado

[sqa212]

Creo que lo puedes lograr sin recorrer todos los archivos de la carpeta

dim objFSO, objF, objFC, objFL
dim f1, w, h, c, strType, mostranom, folder, nomcarpeta, num
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder(Server.MapPath("../imatges_productes/"))
Set objFC = objF.Subfolders
For Each folder in objFC
nomcarpeta= folder.name
Set objFL = folder.Files

Response.write objFL.count

For Each fl in objFL
num = num + 1
next
response.write nomcarpeta & "("&num &") <br>"

Next

set objFC = nothing
set objF = nothing
set objFSO = nothing