欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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

程序员文章站 2022-07-01 23:50:17
<%@ language=vbscript %> <%  '我写的一个遍历目录以及目录下文件的函数, %> <%   functio...
<%@ 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:盘
%>