Hi,

I'm trying out the VFPCompression.fll from Craig Boyd and getting problems trying to zip up a folder that has subfolders. Here's my code:

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.

ZipFolder is what is failing. Any ideas what could be causing this?