select tk_const
go top
locate for upper(alltrim(prog_nam))="ARH"
if !found()
 =messagebox("Не найдена константа ARH(имя архиватора с опциями.)", ;
              0 + 48 ,"Ошибка")
 return
endif
cCommand=alltrim(text)
go top
locate for upper(alltrim(prog_nam))="ARH_PATH"
if !found()
 =messagebox("Не найдена константа ARH_PATH (путь к архиву).", ;
              0 + 48 ,"Ошибка")
 return
endif
cPath=alltrim(upper(text))
if right(cPath, 1 )#'\'
 cPath=cPath+'\'
endif
cOld=cPath + 'arho_'+padl(alltrim(str(day(date()))), 2 ,"0")+ ;
                  padl(alltrim(str(month(date()))),  2 , "0")+'.arj'
cArchName=cPath + 'arh'+padl(alltrim(str(day(date()))), 2 ,"0")+ ;
                  padl(alltrim(str(month(date()))),  2 , "0")+'.arj'
if file(cArchName)
   rename &cArchName to &cOld  && при повторной архивации сохраняю старый
endif
cCommand=cCommand+" "+cPath+"arh"+ ;
         padl(alltrim(str(day(date()))), 2 ,"0")+ ;
         padl(alltrim(str(month(date()))),  2 , "0")+ ;
         " "+cNet_path+" *.dbf *.cdx *.fpt"
DECLARE LONG WinExec IN WIN32API String cApplication, Long Mode 
=winexec(cCommand, 0 )
do while !file(cArchName)
   wait " Идет архивация данных " timeout  0 . 2  window 
enddo
 =messagebox("Архивация закончена", 0 + 64 ," ")