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

最新推荐文章于 2025-01-25 10:39:22 发布

转载最新推荐文章于 2025-01-25 10:39:22 发布 · 888 阅读

文章标签：

#vbscript #function #path #each

asp 专栏收录该内容

30 篇文章

订阅专栏

本文介绍了一个使用VBScript编写的脚本，该脚本能遍历指定路径下的所有子目录及文件，并将路径和文件名输出到网页上。通过递归调用的方式实现了目录及其文件的遍历。

部署运行你感兴趣的模型镜像

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