Using the
File System Object
to
Display Directory List
:
Click here to test this script.
Code:
Place below the <HTML> tag:
Highlight
<% directory = (server.MapPath(".")) dim fso, folder, folderItem, subfolder set fso = CreateObject("Scripting.FileSystemObject") set folder = fso.GetFolder(directory) set subfolder = folder.SubFolders For Each folderItem In subfolder Response.Write (folderItem.name) & "<br>" Next set fso = nothing %>