<SCRIPT LANGUAGE=vbscript RUNAT = Server>
Dim fs, folderpara, folderArray
Set fs = CreateObject("Scripting.FileSystemObject")
folderArray = Array("root_folder1", "root_folder2")
for i = 0 to 1
folderpara = folderArray(i)
Response.write "<UL>"
Response.write "<LI STYLE='list-style-image: url(images/close.gif)'>" & folderpara & "</LI>"
Call ShowFolderList(folderpara)
Response.write "</UL>"
next
set fs = Nothing
Sub ShowFolderList(folderspec)
Dim f, f1, fc, s
Set f = fs.GetFolder(server.mappath(folderspec))
Set fc = f.SubFolders
if (not (fc.count = 0)) then
Response.write "<UL>"
For Each f1 in fc
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "<li onmousemove='mousemove()' onmouseout='mouseout()'>"
Response.write "<a href='display.asp?sPath=" & folderspec & "/" & s & "&" & "XDoc=on&XPpt=on&XZip=on" & "'>"
Response.write s & "</LI>"
Response.write "</a>"
Call ShowFolderList((folderspec & "/" & s))
end if
Next
Response.write "</UL>"
end if
end sub
</SCRIPT>