Set objShell = CreateObject("WScript.Shell")
WinzipPath =
objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersi
on\App Paths\winzip.exe\")
'Usage: wzzip [options] zipfile [@listfile] [files...] ' See
http://www.winzip.com/wzcline.htm for more info
'
'-a Add files (default action).
'-e<x|n|f|s|0> Set the compression level. -ex = maximum (smallest
file); -en = normal; -ef = fast;
' -es = super speed; -e0 = no compression
'-r Recurse into subfolders (include subfolders). This
option requires the -p or -P option.
'-p|P Store folder names. A lower case p stores only the
names of folders recursed (subfolders included)
' via the -r option, while an upper case P stores
all folder
' information specified on the command line.
'
'-x<filename> Exclude the specified file(s) from the zipping process.
Wildcards are allowed.
'
strCMD = WinzipPath & " -a -r -p -ex " & Chr(34) &
ZipFileName & Chr(34) _
& " " & sSourceFolder & "\*.*"
objShell.Run strCMD, 1, True
Hope that helps
Philippe
