首页
后端开发
VB
VBScript 目录文件遍历

VBScript 目录文件遍历

28 次浏览 0 条评论
vbs
vbs 
' 定义遍历目录的函数
Function TraverseDirectory(strPath)
  Dim objFSO, objFolder, objFile, objSubFolder

  ' 创建 FileSystemObject 对象
  Set objFSO = CreateObject("Scripting.FileSystemObject")

  ' 获取指定路径的文件夹对象
  Set objFolder = objFSO.GetFolder(strPath)

  ' 遍历文件夹中的所有文件
  For Each objFile In objFolder.Files
    WScript.Echo "文件: " & objFile.Path
  Next

  ' 递归遍历子文件夹
  For Each objSubFolder In objFolder.SubFolders
    WScript.Echo "目录: " & objSubFolder.Path
    TraverseDirectory objSubFolder.Path
  Next

  ' 释放对象
  Set objFSO = Nothing
  Set objFolder = Nothing
  Set objFile = Nothing
  Set objSubFolder = Nothing
End Function

' 指定要遍历的目录
TraverseDirectory "C:YourDirectoryPath"

这段 VBScript 代码演示了如何使用 FileSystemObject 对象遍历指定目录及其子目录下的所有文件。 通过递归调用 TraverseDirectory 函数，可以实现对任意深度目录结构的遍历。

vbs 文件大小：807B