>LPARAMETERS tcFromFolder, tcToFolder > >LOCAL lcToFile, llRetVal >m.lcToFile = FORCEEXT(ADDBS(m.tcToFolder) + oApp.GetAppInfo("Title") +"-"+ DTOS(DATE()), "ZIP") > >IF X2SETLIB('VFPCompression.FLL') > * VFPCompression.FLL was successfully installed > IF ZipOpen(m.lcToFile) > IF ZipFolder(tcFromFolder, .F.) > IF ZipClose() > m.llRetVal = .T. > ENDIF > ENDIF > RELEASE LIBRARY VFPCompression.FLL > ENDIF >ELSE > * VFPCompression.FLL could not successfully be installed > DO X3MSGSVC WITH 'No VFPCompression.FLL' >ENDIF > >RETURN m.llRetVal>FWIW, if I try just zipping up one file (ZipFile()) it doesn't work either. I do get it to work sometimes on different files, but can't work out any pattern.