<%
'递归算法简单示例,递归遍历指定目录下所有文件和子目录中的文件
'代码原创者:Jspadmin(飞云)
'个人网站 http://www.pifoo.com 提供免费博客申请
'你可以自由引用或修改本代码,但请保留连接或此注释
set fso = createobject("scripting.filesystemobject")
response.write "指定目录下所有文件及所有子目录下文件显示如下:" & "<br>"
iterate(server.mappath("testdir"))
function iterate(path)
dim folder, folders, files, file
set folder = fso.getfolder(path)
set files = folder.files
for each file in files
response.write file.name & "<br>"
next
set folders = folder.subfolders
for each f in folders
iterate f.path
next
end function
set fso=nothing
%>