注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

ASP,FSO遍历目录及目录下文件  

2011-06-05 20:35:46|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
ASP,FSO遍历目录及目录下文件
 
@ Language=VBScript %
%
 '我写的一个遍历目录以及目录下文件的函数,
%
%
  function bianli(pat)
    set fso=server.CreateObject("scripting.filesystemobject")  
    on error resume next
    set objFolder=fso.GetFolder(pat)
    
    set objSubFolders=objFolder.Subfolders
    
    for each objSubFolder in objSubFolders
            
      nowpath=path + "\" + objSubFolder.name
      
      Response.Write nowpat
      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:盘
%
  评论这张
 
阅读(82)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017