asp遍历站点所有文件夹的代码
2024-05-04 11:01:28
供稿：网友
<!-- 遍历站点所有文件夹 -->
<style>
<!--
body{font-size:12px;}
-->
</style>
<script language="vbscript">
<!--
sub fsubmit()
form1.submit
End sub
-->
</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
%> 您可能感兴趣的文章:
js+FSO遍历文件夹下文件并显示asp.net遍历目录文件夹和子目录所有文件php 遍历显示文件夹下所有目录、所有文件的函数，没有分页的代码php实现的遍历文件夹下所有文件,编辑删除使用PHP遍历文件夹与子目录的函数代码深入探讨:linux中遍历文件夹下的所有文件PHP遍历某个目录下的所有文件和子文件夹的实现代码php遍历目录与文件夹的多种方法详解c#递归遍历文件夹示例C++遍历文件夹获取文件列表
