<%
'读取"D:\wwwroot"目录中的文件列表
set fso =  CreateObject("Scripting.FileSystemObject")
uploadPath = "D:\wwwroot"
Set uploadfolder = fso.GetFolder(uploadPath)
set objSubFolders=uploadfolder.Subfolders

for each objSubFolder in objSubFolders
 response.write "<font color=blue>" & objSubFolder.name & "</font><br>"
next

set allfiles = uploadfolder.Files
for each fileitem in allfiles
 sFileName = fileitem.Name
 response.write  sFileName&"<br>"
next
%>