Вот тебе для начала (чейта я разошелся с этими скриптами
)
==== start of file MultyCopy.vbs ===
' ©2004, Volniy
Option Explicit
Dim Targets, Source
Dim txtStream, fso, objArgs
Set objArgs = WScript.Arguments
Set fso = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
If objArgs.Count = 2 Then
Source = objArgs(0)
Source = Mid(Source, 1, Len(Source) - 1)
Targets = objArgs(1)
Else
MsgBox "Неверное число параметров!", vbCritical
WScript.Quit
End If
If fso.FileExists(Targets) = False Or fso.FolderExists(Source) = False Then
MsgBox "Указаны неверные параметры!", vbCritical
WScript.Quit
End If
Set txtStream = fso.OpenTextFile(Targets, 1)
Do While Not (txtStream.AtEndOfStream)
fso.CopyFolder Source, txtStream.ReadLine
Loop
MsgBox "Операция завершена!", vbInformation
Set txtStream = Nothing
Set fso = Nothing
Set objArgs = Nothing
WScript.Quit
==== end of file MultyCopy.vbs ===
Создай этот файл и повесь его на панель тотала. В свойствах этой кнопки в качестве параметров укажи: %T %L.
Работать так: войди в папку, являющуюся источником. Перейди на другую панель тотала и выдели на ней все те папки, в которые нужно записать эту исходную. Нажми на кнопочку MultyCopy и дождись окончания работы скрипта. Вот вроде бы и все