I haven't done any ASP for ages but this may give you something to build on...
<%
Dim fso, fldr, files, file, thing, subfldrs, subfldr, folderspec
folderspec = "C:\Something"
Set fso = CreateObject("Scripting.FileSystemObject"

listfolders
listfiles
sub listfolders
Set fldr = fso.GetFolder(folderspec)
Set subfldrs = fldr.SubFolders
Response.Write "<p>"
For Each subfldr In subfldrs
Response.Write subfldr.name & "<br>"
Next
Response.Write "</p>"
end sub
sub listfiles
Set fldr = fso.GetFolder(folderspec)
set files = fldr.files
Response.Write "<p align=center>"
For Each file In files
Response.Write file.name & "<br>"
Next
Response.Write "</p>"
end sub
%>
Hope this helps.
![[smurf] [smurf] [smurf]](/data/assets/smilies/smurf.gif)
01101000011000010110010001110011