页面导航： 首页 → 网络编程 → ASP编程 → FSO专题 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

<!-- 遍历站点所有文件夹 -->  
<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  
%> 

文章评论

共有 位脚本之家网友发表了评论我来说两句