Nybegynder og FS-object.

Hej,

Jeg har fået bikset/stjålet denne kode, til at genemse mapper på serveren med:

<%
    rootpath = server.MapPath(\"./\")
    level = 0
   
    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\"\">&nbsp;<B><A HREF=\" & server.URLEncode(folder.name) & \">\" & UCASE(folder.name) & \"</A></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
            filnavn = server.URLEncode(file.name)
            response.write \"<IMG SRC=_spacer.gif>\" & \"<A HREF=\" & erstat(filnavn) & \">\" & file.name & \"</A><br>\"
        next
        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
   
    call getPath(rootpath,level)
%>

Men jeg har det problem at den viser alle filer, og jeg vil kun have at den skal vise de film jeg har liggende i mappen. Kunne man ikke lave en løsning hvor alle filer der starter med \"_\" bliver skjult ?

Hvis der er nogen der kan hjælpe mig, bliver de nok nødt til at lave modificeringen til scriptet fuldt ud, for jeg er meget nybegynder.