asp遍历站点每个文件夹的代码

发布时间：2023-09-09 11:37:53 所属栏目：Asp教程来源：

导读：
<style>

</style>
<script language="vbscript">

</script>
<f

<style>

</style>
<script language="vbscript">

</script>
<form name="form1" method="post" action="findfolder.asp">
<select size="1" name="fpath" onchange="fsubmit()">
<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>
</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
%>

（编辑：汽车网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!