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