0514-86177077

9:00-17:00（工作日）

主页 > 知识库 > asp遍历站点所有文件夹的代码

asp遍历站点所有文件夹的代码
热门标签：常用地图标注范围点 离线电子地图标注软件注册 办理400电话一年多少钱 为什么外呼系统需要预存话费呢 兰州智能语音电销机器人功能 咸阳销售外呼系统 企数外呼系统能用多久 外呼回拨系统图片 宁夏怎么申请400电话
!-- 遍历站点所有文件夹 -->  
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遍历站点所有文件夹的代码》，本文关键词  asp,遍历,站点,所有,文件夹,；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《asp遍历站点所有文件夹的代码》相关的同类信息！
  • 本页收集关于asp遍历站点所有文件夹的代码的相关信息资讯供网民参考！
    • 推荐文章

    上一篇：ASP对网页进行保护的简单代码 ip

    下一篇：用js实现QQ在线查询功能

    Copyright © 1999-2012 诚信 合法 规范的巨人网络通讯始建于2005年

    苏ICP备15040257号-8

    产品关键词： asp遍历站点所有文件夹的代码 asp,遍历,站点,所有,文件夹,