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

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

%>