Read subfolders with the Scripting.FileSystemObject:

<%
Dim fso
Dim ObjFolder
Dim ObjSubFolders
Dim ObjSubFolder
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set ObjFolder = fso.GetFolder([folder path])
Set ObjSubFolders = ObjFolder.SubFolders
Response.Write(“<ul>”)
For Each ObjSubFolder In ObjSubFolders
Response.Write(“<li>” & ObjSubFolder.Name & ” – ” & ObjSubFolder.Path & “</li>”)
Next
Response.Write(“</ul>”)
%>