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

Источник — «https://wiki.sftserv.ru/index.php?title=ADD_REPS_TO_RAR&oldid=37313»