Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
MS Common Dialog - is there a way to return Path and lis
Message
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00299346
Message ID:
00299907
Vues:
23
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform