版权声明:本文为博主原创文章,未经博主允许不得转载。 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