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?