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

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