Aqui les dejo esta clase para crear archivos Zip desde (x)harbour utilizando la libreria
hbmzip.lib y zlib.lib para quien desee descargarla y probarla, agradeceria mucho me dejen sus quejas, comentariosy sobre todo sugerencias.
Tan Facil Como ...
oZip := HBZip():New( "MyZip.Zip")
oZip:AddFile( "mytext.txt" ) // agregar archivo
oZip:ExtractFile( "mytext.txt", "mydir\" ) // extraer archivo
oZip:Close()
Las demas metodos de la clase los pueden ver en el codigo fuente.
Saludos,
Andres Reyes Hernandez
Nota: El archivo de descarga solo incluye el codigo fuente,