ADD REPS TO RAR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «ADD_REPS_TO_RAR - это программа из справочника R266 = Смотрите также = Функции Delphi Полезные ф…») |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
ADD_REPS_TO_RAR - это программа из справочника [[R266]] | ADD_REPS_TO_RAR - это программа из справочника [[R266]] | ||
| + | |||
| + | Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH | ||
| + | |||
| + | и добавляет в этот архив REPS за последние два месяца | ||
| + | |||
| + | = Текст = | ||
| + | |||
| + | local exp_path,dir,aa,program_path,_reps,rp,_file,i | ||
| + | exp_path := Nice_UNC_Path( GetPrm('EXPPATH','SENDREC',1) ) | ||
| + | dir := Directory( exp_path ) | ||
| + | aa := GetFileList( exp_path+'*.rar' ) | ||
| + | |||
| + | if !Empty(aa) | ||
| + | _file := exp_path+aa[ len(aa) ] | ||
| + | endif | ||
| + | |||
| + | program_path := Nice_Unc_Path( Left( TempPath, at('Fabius',TempPath)+8 )+'Program' ) | ||
| + | |||
| + | for i := -1 to -1 | ||
| + | _reps := 'REPS'+Ret_f_ext( TimeBack( Date(), i ) ) | ||
| + | rp := program_path+[winrar.exe a -m5 -y -vn -ep -dh ]+_file+[ ; | ||
| + | ]+Nice_Unc_Path( OpdataPath )+_reps+[.* ] | ||
| + | RunProcess( rp ) | ||
| + | next | ||
= Смотрите также = | = Смотрите также = | ||
Версия 08:53, 20 января 2017
ADD_REPS_TO_RAR - это программа из справочника R266
Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH
и добавляет в этот архив REPS за последние два месяца
Текст
local exp_path,dir,aa,program_path,_reps,rp,_file,i
exp_path := Nice_UNC_Path( GetPrm('EXPPATH','SENDREC',1) )
dir := Directory( exp_path )
aa := GetFileList( exp_path+'*.rar' )
if !Empty(aa)
_file := exp_path+aa[ len(aa) ]
endif
program_path := Nice_Unc_Path( Left( TempPath, at('Fabius',TempPath)+8 )+'Program' )
for i := -1 to -1
_reps := 'REPS'+Ret_f_ext( TimeBack( Date(), i ) )
rp := program_path+[winrar.exe a -m5 -y -vn -ep -dh ]+_file+[ ;
]+Nice_Unc_Path( OpdataPath )+_reps+[.* ]
RunProcess( rp )
next
