繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示目录下所有的文件（含文件夹）
- ASP
- bbs的树状结构算法
- bbs的树状算法的补充程序
- ASP.NET:访问Excel 电子表格
- ADO.NET：ADODataReader类
- ADO.NET:使用ADO.NET连接文本文件
- session变量中的数组如何引用
- 外源.js的选择调用与一个.htm网站管理初探
- 验证email地址是否合法完整实例
- 不用Global.asa实现在线人数统计
- 为输入及输出的数据库的资料做造型
- 改进性能和样式的 25+ ASP 技巧(1)
- 改进性能和样式的 25+ ASP 技巧(2)
- 改进性能和样式的 25+ ASP 技巧(3)
- 改进性能和样式的 25+ ASP 技巧(4)
- 表单递交内容检测脚本-这里只接受数字
- 如何使replace方法不区分大小写？
- 在 Web 页上使用条件数值格式
- 如何用asp把sqlserver数据转换为execl文件
- 用ADO STREAM做的无组件上传程序简单介绍
- 如何在主页中控制浏览权限
ASP 中的 显示目录下所有的文件（含文件夹）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 137 ::
收藏到网摘: 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
