我正在尝试将一组名为recup_dir.1的文件夹中的一组文件通过recup_dir.535移动到一个文件夹中,以便所有文件都不在文件夹中,只在单个文件夹中。我知道我需要使用一个循环来移动文件,并且可能连接从recup_dir.1到recup_dir.535,但我只是不熟练编程请帮助!!我只是想让它自动复制和移动文件,而不是手动完成。
答案 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
当然,请在测试此脚本之前备份所有文件夹和文件。