南强小屋 Design By 杰米
<%@ Language=vbscript %> 
<% 
 '遍历目录以及目录下文件的函数 
%> 
<% 
  Function Bianli(path) 
    Set Fso=server.createobject("scripting.filesystemobject")   

    On Error Resume Next 
    Set Objfolder=fso.getfolder(path) 

    Set Objsubfolders=objfolder.subfolders 

    For Each Objsubfolder In Objsubfolders 

      Nowpath=path + "\" + Objsubfolder.name 

      Response.write Nowpath 

      Set Objfiles=objsubfolder.files 

      For Each Objfile In Objfiles 
        Response.write "<br>---" 
        Response.write Objfile.name 
      Next 
      Response.write "<p>" 
      Bianli(nowpath)'递归 

    Next 
    Set Objfolder=nothing 
    Set Objsubfolders=nothing 
    Set Fso=nothing 
  End Function 
%> 
<% 
  Bianli("D:") '遍历d:盘 
%>
标签:
asp,遍历目录,子目录

南强小屋 Design By 杰米
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
南强小屋 Design By 杰米

评论“asp遍历目录及子目录的函数”

暂无asp遍历目录及子目录的函数的评论...