<!--遍历站点所有文件夹-->
<style>
<!--
body{font-size:12px;}
-->
</style>
<scriptlanguage="vbscript">
<!--
subfsubmit()
form1.submit
Endsub
-->
</script>
<formname="form1"method="post"action="findfolder.asp">
<selectsize="1"name="fpath"onchange="fsubmit()">
<optionvalue="0"selected>--请选择--</option>
<optionvalue="/">整个站点</option>
<optionvalue=".">当前目录</option>
<%
Dimfso,objfolder,objfile,strpath
setfso=server.createobject("Scripting.FileSystemObject")
strpath="."
callbl(strpath)
functionbl(strpath)
setobjfolder=fso.getfolder(server.mappath(strpath))
foreachobjsubfolderinobjfolder.subfolders
Response.write"<optionvalue='"&strpath&"/"&objsubfolder.name&"'>"&replace(strpath,".","")&"/"&objsubfolder.name&"</option>"
callbl(strpath&"/"&objsubfolder.name)
next
Endfunction
%>
</select>
</form>
<%
fpath=Request.form("fpath")
iffpath<>"0"andfpath<>Emptythen
Response.write"<fontcolor=""#FF0000"">当前文件夹："&replace(fpath,".","")&"</font><br><br>"
setobjfolder=fso.getfolder(server.mappath(fpath))
foreachobjsubfolderinobjfolder.subfolders
Response.write"子文件夹名称:"&objsubfolder.name&"<br>"
next
Response.write"<br>"
foreachobjfileinobjfolder.files
Response.write"文件名称："&objfile.name&"<br>"
next
setobjfolder=nothing
Endif
%>