<!-遍历站点所有文件夹->
<estilo>
<!-
corpo {tamanho da fonte: 12px;}
->
</style>
<scriptLanguage = "vBScript">
<!-
subfsubmit ()
form1.submit
Endsub
->
</script>
<formName = "form1" método = "post" action = "findFolder.asp">
<selectSize = "1" name = "fpath" onchange = "fsubmit ()">
<pptionValue = "0" Selected>-请选择-</pption>
<pptionValue = "/"> 整个站点 </pption>
<pptionValue = "."> 当前目录 </pption>
<%
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 & "'>" & reply (strpath, ".", "") & "
callbl (strpath & "/" & objsubfolder.name)
próximo
Função final
%>
</leclect>
</morm>
<%
fpath = request.form ("fpath")
iffpath <> "0" e spath <> vazio
Response.Write "<fontcolor =" "#ff0000" "> 当前文件夹:" & reply (fpath, ".", "") & "</font> <br> <br>"
setObJFolder = fso.getFolder (Server.mappath (fpath))
foreachobjsubFolderinObjFolder.SubFolders
Response.Write "子文件夹名称:" & objSubFolder.name & "<br>"
próximo
Response.Write "<br>"
foreachobjfileinobjfolder.files
Response.Write "文件名称 ::" & objfile.name & "<br>"
próximo
setObjFolder = nada
Endif
%>