hele mappen inkl undermapper og filer

<script>
function showhide(id)
{
    var div = document.getElementById("folder_"+id)
    div.style.display = (div.style.display=="none")? "block" : "none";
    var div = document.getElementById("folderlink_" + id)
    div.style.listStyleType = (div.style.listStyleType=="disc")? "circle" : "disc";
   
}
</script>
<style>
ul{
    position:relative;
}
li.folder{
    list-style-type:circle;
}
li.file{
    list-style-type:none;
}
</style>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Function PrintTree(Path , Tal, FolderID)
    Set fo  = fso.GetFolder(Server.Mappath("/") & Path )
    For each x in fo.SubFolders
        FolderID = FolderID + 1
        Response.Write vbCRLF & "<li class=""folder"" id=""folderlink_" & FolderID & """><a href=""java script:void(0)"" onClick=""showhide(" & FolderID _
        & ");"" onFocus=""blur(this);"">" & x.Name & "</a></li>" & vbCRLF
        Response.Write vbCRLF & "<ul style=""display:none;left:-" & Tal * 10 + 10 & "px;"" id=""folder_" & FolderID & """>"
       
        PrintTree Path & x.name & "/" , Tal + 1 , FolderID

        Response.Write "</ul>" & vbCRLF
    next
    for each y in fo.files
        Response.write "<li class=""file""><a href=""Open.asp?file=" & path & y.name & """ target=""Open"">" & y.Name _
        & "</a> -<a href=""" & path & y.name & """ target=""Open"">P</a> / D</li>"
    next
End Function
Response.Write ""
PrintTree "/" , 0 , 0
%>

super - det kan jeg nemt modificere til det jeg skal bruge det til... thanks!