使用VBscript移动文件

Question

我正在尝试将一组名为recup_dir.1的文件夹中的一组文件通过recup_dir.535移动到一个文件夹中，以便所有文件都不在文件夹中，只在单个文件夹中。我知道我需要使用一个循环来移动文件，并且可能连接从recup_dir.1到recup_dir.535，但我只是不熟练编程请帮助!!我只是想让它自动复制和移动文件，而不是手动完成。

Answer 1

尝试以下操作（它假定您要将文件放入执行脚本的目录中）：

Dim filesys, file
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim i
For i = 0 to 535
     Dim files
     Set files = filesys.GetFolder("recup_dir." & i).Files

    For Each file in files 
          filesys.MoveFile "recup_dir." & i & "\" & file.Name, ".\" & file.Name 'assuming you want all the files to be in the current directory
    Next
Next

当然，请在测试此脚本之前备份所有文件夹和文件。