[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

[Iska]

Если я просто поменяю Scripting.FileSystemObject на Shell.Application, будет работать? »

Нет, не будет.

Вы можете показать на примере скрипта что поменять? »

На примере примера скрипта — не стану, ибо бессмысленно. Могу привести простой пример — вот:

Код:

Option Explicit

Dim objShell
Dim objFolder

Set objShell = WScript.CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("E:\Песочница\0031")

If Not objFolder Is Nothing Then
	objFolder.CopyHere "C:\WINDOWS\System32\*.dll"
	
	Set objFolder = Nothing
End If

Set objShell = Nothing

WScript.Quit 0

Описание объекта «Shell.Application», его объектов, свойств и методов можно узнать здесь: Shell Objects for Scripting and Microsoft Visual Basic (Windows).