使用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 

當然，請讓您的所有文件夾和文件的備份之前測試這個腳本。