View previous topic :: View next topic |
Author |
Message |
Jony
Joined: 13 Sep 2006 Posts: 2
|
(Separately) Posted: Wed Sep 13, 2006 21:45 Post subject: Даже и не знаю... (Автоматическое копирование) |
|
|
Здравствуйте! Помогите пожалуйста!
Вопрос таков: можно-ли настроить Commander так - что-би функция "копировать" работала без пользователя ( допустим с интервалом в пол часа )?
! | Avada: | Перемещено из Секретов и советов в Автоматизацию. Заголовок дополнен. | |
|
Back to top |
|
|
D1P
Joined: 20 Dec 2004 Posts: 2973 Location: Тбилиси
|
(Separately) Posted: Wed Sep 13, 2006 22:31 Post subject: |
|
|
Ну вобще-то, думаю можно - но не с помощью встроенных функций, а с использованием внешнего софта. Берём nnCron, пишем скрипт...
Но тут встаёт другой вопрос: если всё равно приходится использовать сторонний софт, так зачем приплетать TC, да ещё и для такой тривиальной функции, как копирование? Берём nnCron... да зачем, вон в Windows есть встроенный простенький планировщик заданий, если его не хватит - тогда nnCron. Пишем батник с командами копирования (одна строчка), и скармливаем его планировщику.
Если же обязательно нужен TC - то связка TC+nnCron+скрипты.
Может растолкуешь задачу поподробнее? _________________ База знаний о Total Commander
Блог |
|
Back to top |
|
|
Batya
Joined: 15 Dec 2004 Posts: 2220 Location: Москва, Россия
|
(Separately) 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. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
|
Jony
Joined: 13 Sep 2006 Posts: 2
|
(Separately) Posted: Mon Sep 18, 2006 22:07 Post subject: Спасибо! |
|
|
Batya, у тебя есть аська?
Хотел-бы подробнее узнать о скрипте...
Постучи 234758456 _ Jony |
|
Back to top |
|
|
|