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

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/weiwei_c/article/details/82258334

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

​
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
​