<%@ 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:盘
%>

申明：本教程内容由威凡网编辑整理并提供IT程序员分享学习，如文中有侵权行为，请与站长联系(QQ:254677821)！