LOCAL m.c_archiv, m.c_path_winrar, m.c_path_dbf, m.c_path_arch, m.c_gd
m.c_archiv = '! /N '		&& Командная строка для запуска архиватора
m.c_path_winrar = ALLTRIM(Firm.P_winrar) && Путь к архиватору WinRar
m.c_path_dbf = ALLTRIM(Firm.P_dbf) && В каком каталоге находятся файлы для архивации
m.c_path_arch = ALLTRIM(Firm.P_arch) && Куда положить архив, в моем случае я кидаю на сервер типа \\Tec14-sql\BUH\Uslugi\ 
m.c_gd = STR(Firm.Ych_gd, 4 ) && Для наименования файла архива за какой год, здесь можно усложнить и организовать более мелкую градацию.

IF Firm.L_archiv = .T.		&& Нужна архивация
  CLOSE DATABASES ALL
  m.c_archiv = m.c_archiv + m.c_path_winrar + ' u -ep ' + ;
               m.c_path_arch + 'Ord_'+m.c_gd + ' ' + m.c_path_dbf + '*.*'
  &c_archiv
ENDIF