asp遍历站点所有文件夹的代码

<!-- 遍历站点所有文件夹 -->  
<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++遍历文件夹获取文件列表

ASP