SET BASE_PATH = "H:\DOCS\MY\data\O05.cdb" #( Архивация_1 RunMissed AsLoggedUser LoadProfile Time: 0 0 * * * * Action: BEGIN \ встаем на паузу (10 сек.) PAUSE: 10000 3 BalloonIcon ! BALLOON: "Выйдите из программы!" "Не могу запустить архивацию файла%crlf%%BASE_PATH%" \ пока не появится файл и процесса не будет FILE-EXIST: "%BASE_PATH%" AND PROC-EXIST: "C-Organizer*.exe" NOT UNTIL \ УДАЛЯЕМ СТАРЫЕ АРХИВЫ (надо ли?)-------------------- FOR-FILES: "%ModuleDirName%post\org_*.*" FILE-DELETE: "%FOUND-FULLPATH%" ;FOR-FILES \ ----------------сообщение о необходимости не выдергивать диск-------------------------------------------- 1 BalloonIcon ! BALLOON: "Не вынимайте флэшку!" "Идет архивация файла%crlf%%BASE_PATH%" \ ------------------------------------------------------------------------------------------------------------------------ SWHide \ если закомментировать данную строку можно понаблюдать архивирование \ архивируем с помощью 7z, разбивая на тома по 5М START-APPW: "%ModuleDirName%progs\7z.exe" a -t7z %ModuleDirName%post\org_"%DD%.%MM%.%YY%"_.7z -v5m "%BASE_PATH%" 10000 BalloonTime ! 1 BalloonIcon ! BALLOON: "ОК!" "АРХИВАЦИЯ ФАЙЛА%crlf%%BASE_PATH%%crlf%ЗАКОНЧЕНА" BEEP: 250 500 )# |