asp遍历目录及子目录的函数
更新时间：2008年07月22日 08:54:21 作者：
asp遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下
<%@ Language=vbscript %>
<%
'遍历目录以及目录下文件的函数
%>
<%
Function Bianli(path)
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next
Set Objfolder=fso.getfolder(path)
Set Objsubfolders=objfolder.subfolders
For Each Objsubfolder In Objsubfolders
Nowpath=path + "\" + Objsubfolder.name
Response.write Nowpath
Set Objfiles=objsubfolder.files
For Each Objfile In Objfiles
Response.write "<br>---"
Response.write Objfile.name
Next
Response.write "<p>"
Bianli(nowpath)'递归
Next
Set Objfolder=nothing
Set Objsubfolders=nothing
Set Fso=nothing
End Function
%>
<%
Bianli("D:") '遍历d:盘
%>
<%
'遍历目录以及目录下文件的函数
%>
<%
Function Bianli(path)
Set Fso=server.createobject("scripting.filesystemobject")
On Error Resume Next
Set Objfolder=fso.getfolder(path)
Set Objsubfolders=objfolder.subfolders
For Each Objsubfolder In Objsubfolders
Nowpath=path + "\" + Objsubfolder.name
Response.write Nowpath
Set Objfiles=objsubfolder.files
For Each Objfile In Objfiles
Response.write "<br>---"
Response.write Objfile.name
Next
Response.write "<p>"
Bianli(nowpath)'递归
Next
Set Objfolder=nothing
Set Objsubfolders=nothing
Set Fso=nothing
End Function
%>
<%
Bianli("D:") '遍历d:盘
%>
相关文章
批量复制数据...2006-11-11
asp 网站静态化代码html,具体的功能大家可以测试下。2009-09-09
ASP运行出错：缺少对象: ''xmlDoc.documentElement''错误解决方法
ASP运行出错：缺少对象: 'xmlDoc.documentElement'错误解决方法，需要的朋友可以参考下2012-03-03
生成rss和xml聚合主要是方便订阅，让用户快速知道您的网站的更新。2009-02-02
2008-01-01
这篇文章主要介绍了ASP显示页面执行时间的方法，在本地测试一下输出页面需要多少时间，需要的朋友可以参考下2015-10-10
asp如何用discuz会员系统...2006-09-09
在ASP中连接MySQL数据库，最好的通过ODBC方法...2006-11-11
asp 实现对SQL注入危险字符进行重编码处理的函数...2007-08-08
垃圾引用防治补丁以及发送引用修正补丁的自动安装程序...2007-02-02
最新评论