Перемещение файлов с помощью 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 

Конечно, пожалуйста, сделайте резервную копию всех папок и файлов перед тестирование этого скрипта.