asp遍历站点所有文件夹的代码

<form name="form1" method="post" action="">

<select size="1" name="fpath">

<option value="0" selected>--请选择--</option>

<option value="/">整个站点</option>

<option value=".">当前目录</option>

<%

Dim fso,objfolder,objfile,strpath

set fso=server.createobject("Scripting.FileSystemObject")

strpath="."

call bl(strpath)

function bl(strpath)

set objfolder=fso.getfolder(server.mappath(strpath))

for each objsubfolder in objfolder.subfolders

Response.write "<option value='" & strpath & "" & objsubfolder.name & "'>" & replace(strpath,".","") & "" & objsubfolder.name & "</option>"

call bl(strpath & "" & objsubfolder.name)

next

End function

%>

</select>

<input type="submit" value="转到" />

</form>

<%

fpath=Request.form("fpath")

if fpath<>"0" and fpath<>Empty then

Response.write "<font color=""#FF0000"">当前文件夹：" & replace(fpath,"") & "</font><br><br>"

set objfolder=fso.getfolder(server.mappath(fpath))

for each objsubfolder in objfolder.subfolders

Response.write "子文件夹名称:" & objsubfolder.name & "<br>"

next

Response.write "<br>"

for each objfile in objfolder.files

Response.write "文件名称：" & objfile.name & "<br>"

next

set objfolder=nothing

End if

%>