Hi,
It still regarding the DynaZip version 4.03 that I using.
I am using their latest version of ActiveX with my
VFP5a application. I just want a form that will be pass
with the zip filename to unzip and the location to unzip to.
On complete, the form should just release itself, but in my
case, it just unzip and never release itself as I can see
the form on the screen with the status bar indicating that
it had completely unzip the files.
This form just use both the dynazip unzip and status activex.
The form is not set to modeless. Even adding a 'release
thisform' at the end of the code below does not exit
the form too. However, it I had a command button to
unzip it and then exit the form, it work. Please kindly
advise what had I done wrong. Thank you very much
FORM.init
LPARAMETER pvZipFileName, pvDestinationDir
THISFORM.oleunzip.zipfile = ALLTRIM(pvZipFileName)
THISFORM.oleunzip.filespec='*.*'
THISFORM.oleunzip.AllQuiet = .F.
THISFORM.oleunzip.QuietFlag = .F.
THISFORM.oleunzip.Destination = ALLTRIM(pvDestinationDir)
THISFORM.oleunzip.OverwriteFlag = .T.
THISFORM.oleunzip.MajorStatusFlag = .T.
THISFORM.oleunzip.MessageCallbackFlag = .F.
THISFORM.oleunzip.BackGroundProcessFlag = .T.
THISFORM.oleunzip.NodirectoryItemsFlag = .T.
_VFP.AutoYield = .F.
THISFORM.oleunZip.ActionDz = 8 && Unzipping
_VFP.AutoYield = .T.
>Did you remember to assign ThisForm.vv_File_To_Zip and ThisForm.vv_Zip_File?
>
>Maybe it should look more like this:
>
>*---------------------------------------------*
>lpara lcItemList, lcZipFile
>ThisForm.vv_File_To_Zip = lcItemList
>ThisForm.vv_Zip_File = lcZipFile
>with thisform.oleZip
> .itemList = ThisForm.vv_File_To_Zip
> .zipFile = Thisform.vv_Zip_File
> _VFP.autoYield = .f.
> .actionDZ = 4
>endwith
>_VFP.autoYield = .t.
>*---------------------------------------------*
>
>
>
>
>>
>>*lpara lcItemList, lcZipFile
>>
>>with thisform.oleZip
>> .itemList = ThisForm.vv_File_To_Zip
>> .zipFile = Thisform.vv_Zip_File
>> _VFP.autoYield = .f.
>> .actionDZ = 4
>>endwith
>>_VFP.autoYield = .t.
Best Regards
Virusim