Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MS Common Dialog - is there a way to return Path and lis
Message
 
General information
Forum:
Visual FoxPro
Category:
Classes - VCX
Miscellaneous
Thread ID:
00299346
Message ID:
00299907
Views:
24
Hi George,

Now I found another problem, that seems to be DynaZip problem.

For Zipping purspose I use this program:
PARAMETERS lcItemList, lcZipFile
LOCAL oZip
IF "06.0" $version()
	oZip = NewObject("DynaZip", "DynaZip.vcx")
ELSE
	IF NOT "DYNAZIP" $upper(set('calasslib'))
		SET classlib to dynazip additive
	ENDIF
	oZip = Createobject("DynaZip")
ENDIF

oZip.dz_ZipFile = lcZipFile
oZip.dz_ExtProgTitle = "Adding files to archive "+lcZipFile
oZip.dz_ItemList=lcItemList
oZip.dz_Recurse = .F.
oZip.dz_NoDirItems = .T.
oZip.dz_DeleteOriginal = .T.
oZip.dz_NoDirNames = .T.
oZip.dz_ExternalProg = .T.
oZip.dz_Zip_Function = 4
oZip.dz_OverWrite = .T.
oZip.dz_OverWrite_RO = .T.
oZip.dz_CryptFlag = .F.
oZip.dz_CryptCode = ""
oZip.dz_MinorCancel = .T.
oZip.dz_ExtProgCancel = .T.
oZip.dz_NoMsgs = .T.
oZip.dz_Quiet = .T.
llSuccess = oZip.dz_Zip()
oZip.Release()
Release oZip
return llSuccess
If I pass 'c:\test\*.*', 'c:\test\ggg.zip', it works.
If I pass 'c:\My Documents\*.*', 'c:\My Documents\ggg.zip', it failes.

What do I do wrong?
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform