VBS实现遍历某目录下的所有文件（包含子目录）

最新推荐文章于 2025-04-17 12:03:34 发布

Will的大食堂

最新推荐文章于 2025-04-17 12:03:34 发布

阅读量6k

点赞数 2

CC 4.0 BY-SA版权

分类专栏：算法其他文章标签：递归 VBS

本文链接：https://blog.youkuaiyun.com/weiwei_c/article/details/82258334

其他同时被 2 个专栏收录

14 篇文章

订阅专栏

算法

8 篇文章

订阅专栏

该博客介绍了使用递归方法，对某一目录及其所有子文件夹里的所有文件进行遍历的实现方式，主要涉及递归技术。

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

本例使用递归的方法，实现遍历某一目录下及所有子文件夹里的所有文件。


Set ObjWS = WScript.CreateObject("wscript.shell")
currentDir=ObjWS.CurrentDirectory
Set ObjFSO = CreateObject("Scripting.FileSystemObject") 

Dim filesTree
filesTree = "." & vbCrLf

Call SearchFolder(currentDir)
Msgbox filesTree


Sub FilesInFolder(folderPath)
	Set ObjFolder=objFSO.GetFolder(folderPath)
	Set files=ObjFolder.files
	For Each file In files
		filesTree = filesTree & "-" & file.name & vbCrLf
	Next
End Sub

Sub SearchFolder(folderPath)
	Set ObjFolder=objFSO.GetFolder(folderPath)
	Set SubFolders=ObjFolder.SubFolders
	
	FilesInFolder(folderPath)
	
	if SubFolders.Count =0 then
		'msgbox "exit search:" & folderPath
		exit Sub
	end if
	
	For Each subFolder In SubFolders
		'MsgBox subFolder.path
		filesTree = filesTree & subFolder.path & vbCrLf
		SearchFolder(subFolder.path)
	Next

End Sub