使用VBscript移动文件

时间:2012-03-21 13:26:16

标签: file loops vbscript concatenation move

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

1 个答案:

答案 0 :(得分: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

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