If this is your first visit, be sure to
check out the FAQ by clicking the
link above. You may have to register or Login
before you can post: click the register link above to proceed. To start viewing messages,
select the forum that you want to visit from the selection below.

Sub Main()
Dim source() As Byte 'contents of the source file as byte array
Dim dest() As Byte 'contents of the dest (zipped) file as byte array
Dim destlen As Long 'number of bytes of the zipped file
Dim r as long 'return value