繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示目录下所有的文件（含文件夹）
- ASP
- ASP进阶之文章在线管理更新(3)
- ASP进阶之文章在线管理更新(4)
- ASP进阶之文章在线管理更新(5)
- ASP进阶之文章在线管理更新(6)
- ASP进阶之文章在线管理更新(7)
- ASP进阶之文章在线管理更新(8)
- ASP进阶之文章在线管理更新(9)
- ASP进阶之文章在线管理更新(10)
- ASP进阶之文章在线管理更新(11)
- ASP进阶之文章在线管理更新(12)
- ASP进阶之文章在线管理更新(13)
- 聊天室建设详解一
- 聊天室建设详解二
- 聊天室建设详解三
- 聊天室建设详解四
- 聊天室建设详解五
- 一个基于ASP的标题广告管理系统（一）
- 一个基于ASP的标题广告管理系统（二）
- 一个基于ASP的标题广告管理系统（三）
- 对数据库中的记录用上一条下一条显示（一）
ASP 中的 显示目录下所有的文件（含文件夹）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 192 ::
收藏到网摘: n/a
set A=server.createobject("scripting.filesystemobject")
path="G:\count\0"
i=0
response.write "主目录：<br>"&path&"<ul>"
re
response.write "</li></ul>" '-----------------主目录
sub re()
B=B&i
C=C&i
D=D&i
E=E&i
set B=A.getfolder(path) '----------------------主目录下文件
if i>=2 then response.write "<ul>"
for each E in B.files
response.write "<li>"&E.name&"</li>"
next
if i>=2 then response.write "</ul>"
'----------------------End '---------------------------主目录下文件夹 set C=B.SubFolders
if i>=2 then response.write "<ul>"
for each D in C
response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font>"
i=i+1
path=D
re2 '显示子目录
next
if i>=2 then response.write "</ul>"
'---------------------------End
end sub '-----------------次目录
sub re2()
B=B&i
C=C&i
D=D&i
set B=A.getfolder(path) '-----------------------------次目录下文件
response.write "<ul>"
for each E in B.files
response.write "<li>"&E.name&"</li>"
next
response.write "</ul>"
'-----------------------------End '-----------------------------次目录下文件夹
set C=B.SubFolders
response.write "<ul>"
for each D in C
response.write "<li><b>"&D.name&"</b><font color=#c0c0c0>(DIR)</font></li>"
i=i+1
path=D
re '显示子目录
next
response.write "</ul>" '-----------------------------End
end sub
%>
评论 (0) All
