Rick, here's the code I'm running from a PRG. Works fine.

Barbara

** Here we create an Xceed Zip object called oXCeed

oXceed = CREATEOBJECT("XceedSoftware.XceedZip.4")

If VARTYPE(oXceed) != "O"
   Return .F.
Endif

With oXceed
   .EncryptionPassword = 'ESDSet'
   .ZipFileName = cZipFile
   .FilesToProcess = (cPath2) + "*.*"
   .PreservePaths = .T.
   nResultCode = .zip
   If nResultCode <> 0
      lret = .f.
      cRC = ''
      cRC = .GetErrorDescription(0, nResultCode)
      cErrMsg = 'ZIP program did not work.  The error was ' + cRC
   Endif
Endwith