HI I use Winzip 11.2.

I wish to zip 4 files monthly (there are other files in the folder).

How do I add (via loops) more than one zipped file?

I was going to use the .SendMail SendTo to email the zipped file.

Thanks

Simon

I was using ub ZipFile()
Dim ZipPath As String
Dim ZipIt As String
Dim Source As String
Dim Dest As String

ZipPath = "C:\Program files\Winzip\"

Source = "N:\mis\location\location Reporting\082008\UKA Reports\CARC-
GE3"
Dest = "C:\tt.zip"
'Note spaces important
ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source,
vbNormalFocus)