продолжение работы после вызова Run()

[N0rB]

Добрый день.
Небольшой вопрос
Архивирую папку с помощью rar.exe. После запуска Run() скрипт завершается и работает архиватор.
Нужно чтобы скрипт ждал окончания процесса архивации (по возможности выводя данные о процессе в файл) и после окончания созданый архив копировался в несколько разных папок.
Примерный код нашел на
http://forum.oszone.net/thread-139946.html
что сюда еще нужно добавить?

$Pach_rar = "E:\backup\" & @ComputerName & "_" & @UserName & "_" & @WDAY & ".rar"

; Создаем папку для хранения архивов
DirCreate("E:\backup")


;~ Расположение консольной программы архиватора rar:
$rar = @ProgramFilesDir & "\WinRAR\rar.exe"

;~ Имя создаваемого архива:
$ArchiveName = $Pach_rar
;~ Указываем расположежние копируемой папки
$addFiles ="С:\123\"

;~ Задаём параметры архивации:
$param = ' a' & $ArchiveName & $addFiles
Run($rar & $param,"",1)

 

[Medic84]

N0rB [?]

Нужно чтобы скрипт ждал окончания процесса архивации

RunWait()

Функции копирования. Не поленитесь в справку заглянуть.

FileCopy()
DirCopy()

 

[kaster]

N0rB

Предупреждение

Обрамляем код тэгом

- [autoit][/autoit]

Есть два способа
1. Скрипт встает на паузу до окончания процесса вызванного через Run

RunWait()

никаких промежуточных операций.
2. запускается цикл с ожиданием и опросом определенный состояний или выводом консольной информации от того же архиватора

$Pach_rar = "E:\backup\" & @ComputerName & "_" & @UserName & "_" & @WDAY & ".rar"

; Создаем папку для хранения архивов
DirCreate("E:\backup")


;~ Расположение консольной программы архиватора rar:
$rar = @ProgramFilesDir & "\WinRAR\rar.exe"

;~ Имя создаваемого архива:
$ArchiveName = $Pach_rar
;~ Указываем расположежние копируемой папки
$addFiles ="С:\123\"

;~ Задаём параметры архивации:
$param = ' a' & $ArchiveName & $addFiles
$pid = Run($rar & $param,"",1)
While ProcessExists($pid)
   ;Некоторый код. например вывод определенной инфы в консоль
   Sleep(100)
WEnd

 

[Medic84]

Kaster
Я настоятельно рекомендую снять галочку "Не предупреждать о появившихся ответах во время написания собственного сообщения."

 

[N0rB]

Функции копирования. Не поленитесь в справку заглянуть.

функции я знаю =) . спс за замечание.



Добавлено:

Сообщение автоматически объединено: 25 Ноя 2009

Kaster, Medic84 спасибо за помощь. :IL_AutoIt_1: