Scripting.FileSystemObject Read Subfolders
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>”) %>