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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 19: Строка 19:
 
   
 
   
 
  for i := -1 to -1
 
  for i := -1 to -1
   _reps := 'REPS'+Ret_f_ext( TimeBack( Date(), i ) )  
+
   _reps := 'REPS'+[[Ret_f_ext]]( [[TimeBack]]( [[Date]](), i ) )  
 
   rp := program_path+[winrar.exe a -m5 -y -vn -ep -dh ]+_file+[ ;
 
   rp := program_path+[winrar.exe a -m5 -y -vn -ep -dh ]+_file+[ ;
 
     ]+Nice_Unc_Path( OpdataPath )+_reps+[.* ]
 
     ]+Nice_Unc_Path( OpdataPath )+_reps+[.* ]

Версия 08:55, 20 января 2017

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

Функция ищет последний архив в папке, указанной в параметре модуля "Приемо-передача данных" 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

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