HB_ZIPFILE()

Create a zip file

Syntax

HB_ZIPFILE( <cFile> , <cFileToCompress> | <aFiles>, <nLevel> ,
<bBlock>,<lOverWrite> ) ---> lCompress

Arguments

<cFile> Name of the zip file

<cFileToCompress> Name of a file to Compress ,Drive and/or path can be used

<aFiles> An array containing files to compress,Drive and/or path can be used

<nLevel> Compression level ranging from 0 to 9

<bBlock> Code block to execute while compressing

<lOverWrite> Toggle to overwite the file if exists

Returns

<lCompress> .T. if file was create,otherwise .f.

Description

This function create a zip file named . If the extension is ommited , .ZIP will be assumed. If the second parameter is a character string, this file will be added to the zip file.If the second parameter is an array,all files names contained in will be compressed.

If is used, it detemines the compression type where 0 means No compression and 9 means best compression.

If is used, every time the file is opened to compress it will do the action specified.

If is used , it toggles to overwrite or not the existing file.Default is to overwrite the file.

Examples

FUNCTION MAIN()
IF HB_ZIPFILE( "TEST.ZIP","TEST.PRG")
qout("File was successly create")
ENDIF
IF HB_ZIPFILE( "TEST1.ZIP",{"TEST.PRG","c:\windows\win.ini"})
qout("File was successly create")
ENDIF
IF HB_ZIPFILE( "TEST2.ZIP",{"TEST.PRG","c:\windows\win.ini"},8,{|cFile|,qout(cFile)})
qout("File was successly create")
ENDIF
Return Nil

Status

Ready

Compliance

This function is a Harbour extension

Platforms

Win32

Files

Library is zlib.lib and zlib_bor.lib For Borland Compilers Library is zlib.lib zlib_ms.lib for MSVC compilers