[peretc001]

Код:

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