I use the following sub/function to zip individual FILES, and it works great:
Public Sub WinZipFile(strFileName As String, strDest As String, Optional strPassword As Variant)
Dim strShell As String
If IsMissing(strPassword) Then
strShell = "c:\progra~1\winzip\wzzip.exe " & strDest & " " & strFileName 'WINZIP32.EXE
strShell = "c:\progra~1\winzip\wzzip.exe -s" & strPassword & " " & strDest & " " & strFileName
But I cannot figure out how to zip a whole FOLDER. HELP! How do I need to modify the code to zip a folder or does somebody have code that does work?