Zip file using Access VBA and WinZip

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

Command line parameters for WinZip

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

Author Bio.

Garry Robinson has been involved in over a 100 Access projects, edits his companies web site at http://www.vb123.com/ and is a contributing editor to the Smart Access magazine. When Garry is not sitting at a keyboard, he can be found playing golf or swimming down at his local Sydney beach. Contact details

or you can download this sample by. Albert D. Kallal
Previous Post
Next Post
Related Posts