当前位置： 移动技术网 > IT编程>开发语言>Asp > 遍历目录以及目录下文件的函数

遍历目录以及目录下文件的函数

2017年12月12日  | 移动技术网IT编程  | 我要评论
<%@ 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 "
---"
　　　　　　　　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:盘
%>

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网