FSO איך?

לקחתי את הקוד הזה:


<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.mapPath("\"))
Set files = folder.Files

dim c :c=0
For Each file in Files
Response.Write file.Name & "<BR>"
c=c+1
Next

Response.Write("<br><b>Total Files</b>: "& c)
Set files = Nothing
Set file = Nothing
Set fso = Nothing
%>


הזה מהאתר ואני רוצה לדעת איך אני יכול לעשות שזה יבחר רק סוגי קבצים
ספציפים שאני מגדיר מראש למשל:
*.jpg, *.gif
וכאלה…
תודה מראש