繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示目录下所有的文件（含文件夹）
- ASP
- ADO如何提供异动功能？（BIG5）
- 从数据库中动态选取下拉列表的方法
- 数 据 库 设 计 经 验 谈
- 用SQL实现分布式数据复制
- NT4的ODBC与SQL7相连，不支持中文？
- 大部分ADO的错误码对应的含义
- ASP+中取代ASP的RS(Remote Scripting)技术的Framework
- 利用Page.IsPostBack属性保持用户输入的Framework
- 用VB6读写数据库中的图片
- VisualInterDev6.0七种实现分页显示的方法
- 利用ASP获得图象的实际尺寸的示例
- 5个实用的ASP网站功能（GIB5）
- 在ＡＳＰ中用集合成批操作数据库
- 用asp管理sql server数据库
- 用asp处理access数据库
- 使用速度更快的OLEDB取代ODBC连结
- 对Query字段进行Encode操作的一点看法
- 用ASP语言实现对SQL SERVER 数据库的操作
- Microsoft SQL Server 7.0 备份及恢复相关问题
- Microsoft SQL Server 7.0数据库升级转换问题
ASP 中的 显示目录下所有的文件（含文件夹）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 103 ::
收藏到网摘: 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
