[Ivan Bardeen]

peretc001,
А вот так процесс копирования вас устроит? Пример для перемещения и копирования с помощью проводника в папку (targetfolder)

Код:

On Error Resume Next
Const ForAppend = 8

Set FSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set Shell = WScript.CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")

If Not FSO.FolderExists("1") Then											
	FSO.CreateFolder("1")	
	FSO.CreateFolder("1\2")
End If

TargetFolder = "1" 
Set objFolder = objShell.NameSpace(TargetFolder) 
objFolder.MoveHere "3.txt", &H0&
objFolder.CopyHere "4.txt",&H0&

TargetFolder = "1\2" 
Set objFolder = objShell.NameSpace(TargetFolder) 
objFolder.MoveHere "1.txt", &H0&
objFolder.CopyHere "2.txt", &H0&

WScript.Echo "Распределение завершено" 

WScript.Quit