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?