<%
 set A=server.createobject("scripting.filesystemobject")
 path="G:\count\0"
 i=0
 response.write "主目录： "&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>"&D.name&"(DIR)"
 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>"&D.name&"(DIR)</li>"
 i=i+1
 path=D
 re '显示子目录
 next
 response.write "</ul>" '-----------------------------End
 end sub
 %>

（出处：清风网络学院）

上一篇:1小时ASP入门

下一篇:利用Activer server explorer可对文件进行读写访问

显示目录下所有的文件（含文件夹）相关文章：

·如何显示输入法图标(输入法图标消失)

·MPEG、RM、WMV电影文件格式转换指南

·Windows无法访问指定设备,路径或文件.您可能没有合适的权限访问这个项目

·U盘找不到空间,u盘容量显示为0,u盘可用空间为0

·局域网内共享文件提示没有访问权限的问题

显示目录下所有的文件（含文件夹）相关软件：

·最强文件加密锁2007

·巨城文件保险柜 v2.3

·Ultra RM Converter(Real文件转换分割,合并)V3.3.0916 汉化版

·Allok Video Splitter(视频文件分割)V2.2 0726 修正II版

·联想OEM Winxp的5个文件

·文件夹加密器V9.6

·西门子plc软件及教程文件类型其它介绍

·KillCopy(文件移动复制增强)绿色汉化版 V2.85

·Win98 Gho 文件镜像第6版

·雅丁文件分割器V1.0

特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源：http://www.vipcn.com

	\| 帮助(？) \| 版权声明 \| 友情连接 \| 关于我们 \| 信息发布
Copyright 2007 www.vipcn.com All Rights Reserved.	鄂ICP备05000083号Powered by:vipcn