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

时间:2021-03-17 人气:1

想了解asp遍历目录及子目录的函数的相关内容吗，在本文为您仔细讲解asp遍历目录的相关知识和一些Code实例，欢迎阅读和指正，我们先划重点：asp,遍历目录,子目录，下面大家一起来学习吧。

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

加载全部内容