<%
Dim strPath 'Path of directory to show
Dim objFSO 'FileSystemObject variable
Dim objFolder 'Folder variable
Dim objItem 'Variable used to loop through the contents of the folder
root = "/FunStuff"
if request.querystring("folder") = "" then
strpath=root& "/"
else
path = request.querystring("folder")
strPath = root + path & "/"
end if
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.SubFolders
%>
|
"><%= objItem.Name %>
|
<%
Next 'objItem
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>