Visning af bestemte filer

<%
   
    sub getPath(strPath,level)
        Set fsObj = CreateObject("Scripting.FileSystemObject")
        Set MainFolder = fsObj.GetFolder(strPath)
        Set Files = MainFolder.Files
        Set Folders = MainFolder.subfolders

        For Each Folder in Folders
            for a = 1 to level
                Response.Write "&nbsp;"
            next
            response.write "<IMG SRC='folder.gif' align='absbottom'>&nbsp;<B>" & UCASE(folder.name) & "</b><br>"
            call getPath(strPath & "\" & lcase(folder.name),level+1)
        next

        For Each File in Files
            for a = 1 to level
                Response.Write "&nbsp;"
            next
            response.write "<IMG SRC='pdfikon.gif' align='absbottom'> <a href='" & rootpath  & "/" & LCASE(file.name) & "'>" & LCASE(file.name) & "</a><br>"
        next
        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
   
    call getPath(rootpath,level)
%>

Dette script viser mig indhold af en mappe... Men kan man sætte den sådan at der kun vises filer med .pdf ?
- og hvordan?