繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 显示目录下所有的文件（含文件夹）
- ASP
- asp+的页面指示标识
- asp+文件上传增强实例
- 让ASP也可以连接MYSQL
- ASP文件操作--列出目录及文件
- 将站点加入频道栏源代码
- 如何在页面上动态的生成 WebForm控件
- 避免表单的重复提交又一方法（js）
- 灵活实用的页面广告实例
- 如何用javascript识别Netscape 6 浏览器
- 使用javascript实现邮箱快速登录的方法!!
- 如何从数据库得到一个列表表单
- 使用Cookie来跟踪用户
- 用DHTML来模拟实现下拉菜单
- javascript做的数据校验（校验IP地址等）
- 通过网络域名得到这台主机的IP地址
- 如何在ASP中使用类
- SQL Server中单引号的两种处理技巧
- Display data From database into 2 Column
- 存储过程对页面访问速度的影响
- 在ASP中使用类
ASP 中的 显示目录下所有的文件（含文件夹）
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 127 ::
收藏到网摘: 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
