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)

'
' Macro1 Macro
' Macro written 15/09/2008 by axuklslav
'
Sub 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\oth\othReporting\082008\UKA Report\"
'Source2 = "N:\mis\oth\othReporting\082008\UKA Reports\CARC-lt3"
'Source3 = "N:\mis\oth\othReporting\082008\UKA Reports\UKA-GE3"
'Source4 = "N:\mis\oth\othReporting\082008\UKA Reports\UKA-lt3"

Dest = "N:\mis\oth\othReporting\082008\UKA Reports"
'Note spaces important

ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source & Source2
& Source£ & Source4, vbNormalFocus)

ZipIt = Shell(ZipPath & "Winzip32 -a " & Dest & " " & Source,
vbNormalFocus)

ZipIt.SendMail ", Subject:="RBS2-5 zipped
files, ReturnReceipt:=True"

Thanks

See
http://www.rondebruin.nl/zip.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Simon" wrote in message ...
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)