Zip files within Access

[N. Cotton]

Is there a way to compress files to a Zip file using VBA without requiring
the users to have Winzip or similar installed?

TIA

 

[Van T. Dinh]

There is no inbuilt function in Access to zip a file.

 

[N. Cotton]

Thanks for the reply.

I understand there is no inbuilt function.

There are a couple of purchaseable components to do it such as polarzip
(http://www.polarsoftware.com/products/zip/index.asp).

and also a free one: http://www.zlib.net, but i am not sure if this will
work and how to distubute it wth Access.

I was wondering whether anyone had a better and cheaper solution.

TIA

 

[Arvin Meyer [MVP]]

I prefer Winzip to any other solution. It is reliable, fast, and
configurable. That said I have used free zipping utilities with good
success. The one I like the best is FreeByteZip:

http://www.freebyte.com/fbzip/

' This statement adds i:\data\mydocument1.doc to the test1.zip zip archive.
If the zip file does not exist, it will be created. Directories are
recursed, and path information is stored in the zip file.

Dim x

x= Shell(c:\Utilities\fbzip.exe -a -p -r "c:\test1.zip"
"i:\data\mydocument1.doc"

HTH,
--
Arvin Meyer, MCP, MVP
Microsoft Access
Free Access downloads:
http://www.datastrat.com
http://www.mvps.org/access