使用 VBscript 移动文件答案

【问题标题】：Moving files using VBscript使用 VBscript 移动文件
【发布时间】：2012-04-06 00:39:49
【问题描述】：

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

【问题讨论】：

我的回答解决了你的问题吗？如果不是，请告诉我们原因，否则请标记为已接受

标签： file loops vbscript concatenation move

【解决方案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

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

【讨论】：