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