Sub Main
Dim intReturn As Integer
Dim varFilesToZip As Variant
Dim varFilesToExclude As Variant
Dim varZipFilename As Variant
Dim intIncludeSubDirs As Integer
Dim intPreservePaths As Integer
varFilesToZip = "c:\My Documents\*.*"
varFilesToExclude = "*.zip"
varZipFilename ="c:\TodaysZip.zip"
intIncludeSubDirs = 1
intPreservePaths = 1
intReturn = Action2.Zip (varFilesToZip, varFilesToExclude, varZipFilename, intIncludeSubDirs, intPreservePaths)
If intReturn = 0 Then
MsgBox "Failure"
MsgBox( Action2.GetLastError )
ElseIf intReturn = 1 Then
MsgBox "Success"
End If
End Sub