<！ - 遍历站点所有文件夹 - >
<style>
<！ -
ボディ{font-size：12px;}
- >
</style>
<scriptlanguage = "vbscript">
<！ -
subfsubmit（）
form1.submit
Endingub
- >
</script>
<formName = "form1" method = "post" action = "findfolder.asp">
<selectssize = "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 = '"＆ "/"＆objsubfolder.name＆ "'>"＆ "＆"＆ "＆eppled（strpath、"。 "、" "）＆"/"＆objsubfolder.name＆" </option> "
callbl（strpath＆ "/"＆objsubfolder.name）
次
エンド機能
％>
</select>
</form>
<％
fpath = request.form（ "fpath"）
iffpath <> "0" andfpath <> emptythen
respons.write "<fontcolor =" "＃ff0000" ">当前文件夹："＆cheply（fpath、 "。"、 ""）＆ "</font> <br> <br>"
setobjfolder = fso.getfolder（server.mappath（fpath））
foreachobjsubfolderinobjfolder.subfolders
Response.Write "子文件夹名称："＆objsubfolder.name＆ "<br>"
次
Response.Write "<br>"
foreachobjfileinobjfolder.files
Response.Write "文件名称："＆objfile.name＆ "<br>"
次
setobjfolder =何もない
endif
％>