antal filer i folder

Neden for er noget kode der  en til at vise hvor mange kb der er i en mappe! Hvordan kan jeg se hvor mange filer (evt. af en bestemt slags) der er i folderen??

<html>
<title>Størrelse test</title>
<head>
</head>
<body>
<%

Dim fso, f, folderspec, Stor

folderspec = Server.Mappath("/arj")

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder(folderspec)

Stor =  f.Size mod 1024

Response.Write "<p>Folderen fylder " & Stor & " Kb</p>"
%>

Mvh. Andreas
</body>
</html>


Mvh. Andreas