遍历目录以及目录下文件的函数

VBScript代码：遍历磁盘目录

在服务器端的神秘世界中，有一段强大的VBScript代码正在悄然运行。这段脚本定义了一个名为bianli的函数，它的任务是对指定的磁盘路径进行遍历，展现所有的子文件夹和文件。让我们一起揭开它的神秘面纱吧！

```vbscript

<%@ Language=VBScript %>

<%

Function ExploreDeep(path)

' 创建文件系统对象

Set fso = server.CreateObject("scripting.filesystemobject")

On Error Resume Next ' 遇到错误时继续执行

' 获取指定路径的文件夹对象

Set folder = fso.GetFolder(path)

' 获取该文件夹下的所有子文件夹

Set subFolders = folder.Subfolders

For Each subFolder In subFolders

' 构建当前子文件夹的完整路径

currentPath = path & "\" & subFolder.name

' 输出当前子文件夹的路径

Response.Write currentPath & "
"

' 递归调用自身，继续遍历子文件夹下的文件

Set files = subFolder.Files

For Each file In files

Response.Write "" & file.name & "
"

Next

Response.Write "

" & vbCrLf ' 换行并输出段落标记

ExploreDeep(currentPath) ' 递归调用，继续深入

Next

' 清理对象，释放资源

Set folder = Nothing

Set subFolders = Nothing

Set fso = Nothing

End Function

%>

<%

' 开始遍历D盘根目录

ExploreDeep("d:")

%>

很不错哦。接下来，让内容更加丰富多彩吧！

cambrian.render('body')