asp遍历站点全部文件夹的代码

发布时间：2023-09-18 14:58:28 所属栏目：Asp教程来源：

导读：

<style>



</style>

<script language="vbscript">

<!--

sub fsubmit()

form1.submit

End

<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

%>

（编辑：聊城站长网）

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