ADD REPS TO RAR — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
Строка 3: Строка 3:
 
  и добавляет в этот архив REPS за последние два месяца
 
  и добавляет в этот архив REPS за последние два месяца
 
[[ADD_REPS_TO_RAR]]()
 
[[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
 
 
= Смотрите также =
 
= Смотрите также =
 
[[Полезные функции]]
 
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]

Текущая версия на 12:19, 11 января 2020

ADD_REPS_TO_RAR - это программа из справочника R266

Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH
и добавляет в этот архив REPS за последние два месяца

ADD_REPS_TO_RAR()

Смотрите также

Полезные функции

Функции Delphi