ADD REPS TO RAR — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | ADD_REPS_TO_RAR - это программа из справочника [[R266]] | + | [[ADD_REPS_TO_RAR]] - это программа из справочника [[R266]] |
| − | + | Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH и добавляет в этот архив REPS за последние два месяца | |
| − | Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH | + | [[ADD_REPS_TO_RAR]]() |
| − | + | ||
| − | и добавляет в этот архив REPS за последние два месяца | + | |
| − | + | ||
= Текст = | = Текст = | ||
| − | |||
local exp_path,dir,aa,program_path,_reps,rp,_file,i | local exp_path,dir,aa,program_path,_reps,rp,_file,i | ||
exp_path := [[Nice_UNC_Path]]( [[GetPrm]]('EXPPATH','SENDREC',1) ) | exp_path := [[Nice_UNC_Path]]( [[GetPrm]]('EXPPATH','SENDREC',1) ) | ||
| Строка 24: | Строка 20: | ||
[[RunProcess]]( rp ) | [[RunProcess]]( rp ) | ||
next | next | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Версия 16:59, 21 июля 2017
ADD_REPS_TO_RAR - это программа из справочника R266
Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH и добавляет в этот архив REPS за последние два месяца
ADD_REPS_TO_RAR()
Текст
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
