I think the sticky thread at the top about listing files in a directory covers this fairly well, but (just for fun), here's the page I use (It's based around a slightly-cannibalised version of a script in the above-mentioned thread). It builds up a collapsible menu based around my wwwroot folder. IE only, but hey ;)
<%@ LANGUAGE="VBScript" %>
<%
dim foldercount
foldercount=0
dim rootPath, remoteAddr, httpHost
rootPath=Server.Mappath(".")
remoteAddr=Request.ServerVariables("REMOTE_ADDR")
httpHost=Request.ServerVariables("HTTP_HOST")
%>
<html>
<head>
<title><%=httpHost%></title>
<script language="javascript">
function showContents(folderName){
//alert(folderName);
if(document.all[folderName].style.display=="block"){
document.all[folderName].style.display="none";
}
else{
document.all[folderName].style.display="block";
}
}
</script>
</head>
<body style="font-family:Tahoma; font-size:10px;">
<ul>
<% ListFolderContents(rootPath) %>
</ul>
</body>
</html>
<%
sub ListFolderContents(path)
dim fs, folder, file, item, url, strFolderInfo, strFileInfo
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
'Display the target folder and info.
strFolderInfo="<b><a href=""#"" onClick=""javascript:showContents('fol"&foldercount&"')"" title="""
if folder.SubFolders.Count > 0 then
strFolderInfo=strFolderInfo & folder.SubFolders.Count & " directories" & vbCrLf
end if
strFolderInfo=strFolderInfo & folder.Files.Count & " files" & vbCrLf
strFolderInfo=strFolderInfo & Round(folder.Size / 1000) & " KB"
strFolderInfo=strFolderInfo & """>"&folder.Name&"</a></b>"
Response.Write("<li>")
Response.Write(strfolderInfo)
Response.Write("<div id=""fol"&foldercount&""" style=""display:none;""><ul>" & vbCrLf)
'Display a list of sub folders.
for each item in folder.SubFolders
foldercount=foldercount+1
ListFolderContents(item.Path)
next
'Display a list of files.
for each item in folder.Files
url = MapURL(item.path)
strFileInfo="<li><a href="""& url & """ title="""
strFileInfo=strFileInfo & item.Size & " bytes" & vbCrLf
strFileInfo=strFileInfo & "Last modified" & item.DateLastModified & vbCrLf
strFileInfo=strFileInfo & """>"&item.Name&"</a></li>"& vbCrLf
response.write(strFileInfo)
next
Response.Write("</ul></div>" & vbCrLf)
Response.Write("</li>" & vbCrLf)
end sub
function MapURL(path)
dim rootPath, url
'Convert a physical file path to a URL for hypertext links.
rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "\", "/")
end function %>