当前位置： 移动技术网 > IT编程>开发语言>Asp > asp遍历目录及子目录的函数

asp遍历目录及子目录的函数

2017年12月12日  | 移动技术网IT编程  | 我要评论

石家庄人才网招聘,天使之争全集,在清华听演讲

<%@ 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:盘 
%>

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网