vb123.com.au
Here I will show you a simple way to add a file to a zip file using Access VBA and WinZIp
Call ZipFile_FX("c:\a.zip", "c:\a.xls")
Private Sub ZipFile_FX(ZipFileName As String, fileToBeZipped As String) Const ZIPEXELOCATION = "c:\program files\winzip\winzip32.exe" Shell ZIPEXELOCATION & " -a " & Chr(34) & ZipFileName & Chr(34) & _ " " & Chr(34) & fileToBeZipped & Chr(34), vbNormalFocus End Sub
Winzip is one of the most popular programs on the planet and if you want to automate it, they recommend upgrading to Winzip Pro and installing the free command line utility. If you want to try command line parameters without upgrading to Winzip pro, try the commands on this page using Windows Start then the Run text box.
Read more
here
Cleaning Up An Access
Database
Converting Excel
Spreadsheets To Microsoft Access
How to Zip using Windows Library
http://www.naterice.com/blog/template_permalink.asp?id=64
PolarZip is easy to write code for as long as you can handle DLL installs
Try this idea
http://www.members.shaw.ca/AlbertKallal/zip/index.htm
Click on the
button for the next
help page in this Access Loop.
Get Good Help Here
If you need help with a database or
Office programming,
our Professionals could be the answer because we have worked on many
similar solutions
Frontpage Conversions
We have converted vb123.com to Expression Web,
contact us if we can help you move to the latest Microsoft web tool.
About The Editor ~ Contact Us
Garry Robinson writes for a number
of popular computer magazines, is now a book author and has worked on
100+ Access databases. He is based in Sydney, Australia