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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показано 11 промежуточных версий этого же участника)
Строка 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»