ADD REPS TO RAR

Материал из Фабиус wiki
Перейти к: навигация, поиск

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

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