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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 8: Строка 8:
  
 
  local exp_path,dir,aa,program_path,_reps,rp,_file,i
 
  local exp_path,dir,aa,program_path,_reps,rp,_file,i
  exp_path := [[Nice_UNC_Path]]( GetPrm('EXPPATH','SENDREC',1) )
+
  exp_path := [[Nice_UNC_Path]]( [[GetPrm]]('EXPPATH','SENDREC',1) )
 
  dir := Directory( exp_path )
 
  dir := Directory( exp_path )
 
  aa := GetFileList( exp_path+'*.rar' )
 
  aa := GetFileList( exp_path+'*.rar' )

Версия 08:53, 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

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