Find alle mapper

Brug en rekursiv funktion..

<HTML>
<HEAD></HEAD>
<BODY>
<FONT SIZE=\"2\" FACE=\"Courier\">
<%
    rootpath = \"C:\\inetpub\\iissamples\"
    level = 0
    Response.Write \"Directory: \" & rootpath & \"<BR><BR>\"
   
    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>\" & 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=\"\"spacer.gif\"\">\" & LCASE(file.name) & \"<br>\"
        next
        set fsObj = Nothing
        set MainFolder = Nothing
    end sub
   
    call getPath(rootpath,level)
%>
</FONT>
</BODY>
</HTML>

Hvordan?

Perfekt, lige det jeg skulle bruge :o)

:-)