服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp遍历目录及子目录的函数

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

2019-09-23 10:20asp空间网 ASP教程

asp遍历目录以及目录下文件的函数- 从网上找的不过都用不了,自己用Emeditor修正了一下

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

延伸 · 阅读

精彩推荐