VBscriptを使用してファイルを移動する

Question

recup_dir.1〜recup_dir.535という名前のフォルダのグループを持つファイルのグループを1つのフォルダに移動しようとしています。そのため、すべてのファイルがフォルダから外れてしまいますフォルダ。 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 

を、前にあなたのフォルダやファイルのすべてのバックアップを作成してください。このスクリプトをテストしてください。