Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Dynazip problem
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Miscellaneous
Thread ID:
00405104
Message ID:
00405112
Views:
22
Maybe you have an extra properties.

If you use DLL declarations then this can help you

I use the following code to run p.e

Dzip=("c:\temp\myzip.zip","c:\data\*.*")



********************************************************************************
* The code in this module is copyrighted code. *
* Please refer to the DynaZIP 3.0 License Agreement for terms and conditions *
* regarding its use. *
* *
* Copyright (c) 1996 by Inner Media, Inc *
* 60 Plain Road *
* Hollis, NH 03049 *
* All Rights Reserved. *
********************************************************************************
* Function: DZIP(zipfile, itemlist, spandisks)
* Purpose: create a zip file from a given item list, defaulted to
* multi-volume option disabled unless otherwise specified.
* Return: If successful, 0 is return
******************************************************************************
*-- Modified by Juan C. Zuluaga
*- February 8/2000
*- Include Passwords
PARAMETERS zipfile, itemlist, lPassword

PRIVATE m.regstr_id, m.retn_code, m.retn_code1, mvsettings

DECLARE INTEGER dzipstart IN dz_ez32.DLL
DECLARE INTEGER setzipvalue IN dz_ez32.DLL INTEGER ID, INTEGER iValue, INTEGER theValue
DECLARE INTEGER getzipvalue IN dz_ez32.DLL INTEGER ID, INTEGER iValue
DECLARE INTEGER setzipstring IN dz_ez32.DLL INTEGER ID, INTEGER iValue, STRING@lpTheString
DECLARE INTEGER getzipstring IN dz_ez32.DLL INTEGER ID, INTEGER iValue, STRING@lpTheString, INTEGER stringLen
DECLARE INTEGER dzipeasy IN dz_ez32.DLL INTEGER ID
DECLARE INTEGER dzipend IN dz_ez32.DLL INTEGER ID

#DEFINE ZIP_ADD 4
#DEFINE MV_USEMULTI 32768
#DEFINE MV_FORMAT 1
#DEFINE MV_LOWDENSE 2
#DEFINE MV_WIPE 256
#DEFINE MV_SUBDIR 512
#DEFINE MV_SYSHIDE 1024
#DEFINE MV_CDFIRST 4096
#DEFINE zip_function 0
#DEFINE zip_zipfile 1
#DEFINE zip_itemlist 2
#DEFINE zip_quiet 6
#DEFINE zip_multivol 32
#DEFINE zip_cryptflag 30
#DEFINE zip_cryptcode 31
#DEFINE zip_nomsgs 36

m.regstr_id = dzipstart()
m.retn_code = -1
IF(m.regstr_id <> -1)
m.retn_code = setzipvalue(m.regstr_id, zip_function, ZIP_ADD)

IF(m.retn_code <> -1) and lpassword
m.retn_code = setzipvalue(m.regstr_id, zip_cryptflag, .T.)
ENDIF
IF(m.retn_code <> -1)
m.retn_code = setzipvalue(m.regstr_id, zip_nomsgs, .T.)
ENDIF

IF(m.retn_code <> -1) and lpassword
m.retn_code = setzipstring(m.regstr_id, zip_cryptcode, "Password")
ENDIF

IF(m.retn_code <> -1)
m.retn_code = setzipstring(m.regstr_id, zip_zipfile, ALLTRIM(zipfile))
ENDIF
IF(m.retn_code <> -1)
m.retn_code = setzipstring(m.regstr_id, zip_itemlist, ALLTRIM(itemlist))
ENDIF
IF(m.retn_code <> -1)
m.retn_code = dzipeasy(m.regstr_id)
lerror= m.retn_code
ENDIF
m.retn_code1 = dzipend(m.regstr_id)
IF(m.retn_code1 = -1)
m.retn_code = -1
ENDIF
ENDIF
cErrmsg=""
IF m.retn_code<>0 OR lerror<>0
cErrmsg=dziperr(m.retn_code)
ENDIF
RETURN(cErrmsg)
"Anyone who has never made a mistake has never tried anything new." A.E
"The important thing is not to stop questioning. Curiosity has its own reason for existing." A.E
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform