FileSystemObject > bestemt filtype

Jeg har lavet følgende kode hurtigt, dog er problemet jeg kun skal have filer af typen *.Js trukket frem... hvordan gøres dette ved hjælp af FSO. har intet kunne finde i mine mange papire om FSO.

<%
strBaseDir = "../Client/Generel/Includes/Generated"

Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
Set Folder=FileObject.GetFolder(Server.MapPath(strBaseDir))
 
FOR EACH File in Folder.Files
%>

<%=File.Name%>
<%next%>