最新推荐文章于 2025-05-24 14:58:42 发布

feng_sundy

最新推荐文章于 2025-05-24 14:58:42 发布

阅读量2.7k

点赞数

CC 4.0 BY-SA版权

分类专栏： ASP / .NET 文章标签： asp vbscript function path each

本文链接：https://blog.youkuaiyun.com/feng_sundy/article/details/154468

ASP / .NET 专栏收录该内容

61 篇文章

订阅专栏

博客展示了使用ASP和VBScript编写的遍历目录及目录下文件的代码。通过创建FSO对象，利用递归函数实现对指定目录（如D盘）及其子目录的遍历，并输出目录和文件信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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