Код:

On Error Resume Next
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("WScript.Shell")
If Not FSO.FolderExists("1") Then
FSO.CreateFolder("1")
FSO.CreateFolder("1\2")
End If
Const OverwriteExisting = True
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "1.txt" , "1\" ' перемещаем '
FSO.CopyFile "2.txt" , "1", OverwriteExisting
FSO.MoveFile "2.txt" , "1\2\" ' перемещаем '
FSO.MoveFile "3.txt" , "1\" ' перемещаем '
FSO.MoveFile "4.txt" , "1\" ' перемещаем '
WScript.Echo "Распределение завершено!"
Set Shell = Nothing
Set FSO = Nothing
WScript.Quit