'===========================================================================
' Копирование файлов из одной панели TC в другую с заданной задержкой (сек.)
'
' В параметрах вызова из TC должно быть прописано:
' %L %T {время задержки в секундах}
'===========================================================================

Option Explicit
Dim FSO, OTF, TrgPath, MyFile, Delay
Set FSO = CreateObject("Scripting.FileSystemObject")
Set OTF = FSO.OpenTextFile(WScript.Arguments(0), 1)

TrgPath = WScript.Arguments(1)
If WScript.Arguments.Count < 3 Then
  Delay = 0
Else
  Delay = WScript.Arguments(2)
End If

WScript.Sleep Delay * 1000

Do While Not OTF.AtEndOfStream
  MyFile = OTF.ReadLine
  If Not FSO.FileExists(TrgPath & FSO.GetFile(MyFile).Name) Then
    FSO.CopyFile MyFile, TrgPath
  End If
Loop

Set OTF = Nothing
Set FSO = Nothing
WScript.Quit