ASP显示目录下所有的文件代码

<%
setA=server.createobject("scripting.filesystemobject")
path="G:\count\0"
i=0
response.write"主目录：<br>"&path&"<ul>"
re
response.write"</li></ul>"'-----------------主目录
subre()
B=B&i
C=C&i
D=D&i
E=E&i
setB=A.getfolder(path)'----------------------主目录下文件
ifi>=2thenresponse.write"<ul>"
foreachEinB.files
response.write"<li>"&E.name&"</li>"
next
ifi>=2thenresponse.write"</ul>"
'----------------------End'---------------------------主目录下文件夹setC=B.SubFolders
ifi>=2thenresponse.write"<ul>"
foreachDinC
response.write"<li><b>"&D.name&"</b><fontcolor=#c0c0c0>(DIR)</font>"
i=i+1
path=D
re2'显示子目录
next
ifi>=2thenresponse.write"</ul>"
'---------------------------End
endsub'-----------------次目录
subre2()
B=B&i
C=C&i
D=D&i
setB=A.getfolder(path)'-----------------------------次目录下文件
response.write"<ul>"
foreachEinB.files
response.write"<li>"&E.name&"</li>"
next
response.write"</ul>"
'-----------------------------End'-----------------------------次目录下文件夹
setC=B.SubFolders
response.write"<ul>"
foreachDinC
response.write"<li><b>"&D.name&"</b><fontcolor=#c0c0c0>(DIR)</font></li>"
i=i+1
path=D
re'显示子目录
next
response.write"</ul>"'-----------------------------End
endsub
%>