Batya
|
 Posted: Mon Sep 18, 2006 14:13 Post subject: |
 |
|
| Jony wrote: | | что-би функция "копировать" работала без пользователя ( допустим с интервалом в пол часа )? |
vbs-скрипт:
| Code: | '===========================================================================
' Копирование файлов из одной панели 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 |
Если надо задержку в полчаса, значение третьего параметра - 1800.
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
