PROCEDURE Main() 
    LOCAL cZip := "archive.zip" 
    LOCAL aFiles := {"file3.txt"} 
    LOCAL nLevel := 6  // Уровень сжатия (0-9) 
  
    IF FILE(cZip) 
       hb_ZipFile( cZip, aFiles, nLevel, NIL, .F. )  // .F. — добавить к существующему 
    ENDIF 
    ? 
 RETURN