Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFPCompression.fll
Message
 
 
To
01/10/2007 09:50:16
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01257705
Message ID:
01257716
Views:
15
When second parameter is .F., FLL stores relative path in adition to a file name. The ZIP file location is used to determine the relative path. It will work when ZIP file is located somewhere up of the folder tree of the folders/files and may fail otherwise. I belive it's a bug.

>
>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?
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform