FSO读取目录和文件列表

FSO读取目录和文件列表，用递归进行扩充，理论上可以读无究级目录。这里只写出了读取一级目录，再深层的请自行扩充。：

<title>读取目录和文件列表</title>
<style>
body
{font-size:9pt;
line-height:150%}
</style>
<%
'读取"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
%>