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

 更新时间:2007年06月14日 00:00:00   作者:  
<!-- 遍历站点所有文件夹 -->  
<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  
%> 

相关文章

最新评论