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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (→‎Текст)
м
 
(не показаны 4 промежуточные версии этого же участника)
Строка 1: Строка 1:
−
ADD_REPS_TO_RAR - это программа из справочника [[R266]]
+
[[ADD_REPS_TO_RAR]] - это программа из справочника [[R266]]
 +
Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" EXPPATH
 +
и добавляет в этот архив REPS за последние два месяца
 +
[[ADD_REPS_TO_RAR]]()
 +
= Смотрите также =
 +
[[Полезные функции]]
  
−
Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" 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
 
−
 
−
= Смотрите также =
 
 
[[Функции 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»