Check if Re: DynaZip multivolume. Where is my mistake? Thread #1300404 Message #1300533 helps.

>Anyone know how to get Dynazip OCX to create multi-volume zip files?
>I follow the manual instruction, but it doesn´t seem to work. It keeps creating a single ZIP file. I am not sure if I got fileSizeArray property right!
>
>Here it is the code for the ZIP button
>

>PRIVATE m.retn_code, mvsettings
>
>#DEFINE ZIP_ADD     4
>#DEFINE ZIP_UPD     3
>
>#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 MV_TOHD 16384
>
>m.dados = 'C:\VFoxPro\Desenv5\DOC\zip\'
>
>* Set all default values
>THISFORM.initzipcmdstruct
>
>* Setup zip properties to those on the form
>m.ziparq = GETFILE()
>THISFORM.Dzocx11.ItemList = 	aspas(m.ziparq)
>THISFORM.Dzocx11.ExcludeFollowing = "*.FXP segurança.* foxuser.*"
>THISFORM.Dzocx11.ExcludeFollowingFlag = .T.
>mvsettings = MV_USEMULTI + MV_TOHD
>
>DIMENSION volumesize(2)
>volumesize(1) = 1213952
>volumesize(2) = 0
>
>thisform.dzocx11.fileSizeArray = volumesize
>Thisform.Dzocx11.MultiVolumeControl = mvsettings
>
>THISFORM.Dzocx11.ZIPFile = m.arquivo
>THISFORM.Dzocx11.MajorStatusFlag = .T.
>THISFORM.Dzocx11.MessageCallbackFlag = .T.
>
>* Do the ZIP
>_VFP.AUTOYIELD = .F.
>THISFORM.Dzocx11.ActionDZ = ZIP_ADD
>_VFP.AUTOYIELD = .T.
>
>
>***************
>* initzipcmdstruct
>***************
>
>#DEFINE NO_ACTION         0
>#DEFINE ZSO_MINORCANCEL   2
>#DEFINE ZSO_EXTERNALPROG  4
>#DEFINE ZSO_EXTPROGCANCEL 8
>
>  ThisForm.Dzocx11.ActionDZ = NO_ACTION
>  ThisForm.Dzocx11.AddCommentFlag = .F.
>  ThisForm.Dzocx11.AfterDateFlag = .F.
>  ThisForm.Dzocx11.BackgroundProcessFlag = .T.
>  ThisForm.Dzocx11.Comment = ""
>  ThisForm.Dzocx11.CompressionFactor = 5
>  ThisForm.Dzocx11.ConvertLFtoCRLFFlag = .F.
>  ThisForm.Dzocx11.Date = ""
>  ThisForm.Dzocx11.DeleteOriginalFlag = .F.
>  ThisForm.Dzocx11.DiagnosticFlag = .F.
>  ThisForm.Dzocx11.DontCompressTheseSuffixesFlag = .F.
>  ThisForm.Dzocx11.DosifyFlag = .F.
>  ThisForm.Dzocx11.EncryptCode = ""
>  ThisForm.Dzocx11.EncryptFlag = .F.
>  ThisForm.Dzocx11.ExcludeFollowing = ""
>  ThisForm.Dzocx11.ExcludeFollowingFlag = .F.
>  ThisForm.Dzocx11.FixFlag = .F.
>  ThisForm.Dzocx11.FixHarderFlag = .F.
>  ThisForm.Dzocx11.GrowExistingFlag = .F.
>  ThisForm.Dzocx11.IncludeFollowing = ""
>  ThisForm.Dzocx11.IncludeOnlyFollowingFlag = .F.
>  ThisForm.Dzocx11.IncludeSysandHiddenFlag = .F.
>  ThisForm.Dzocx11.IncludeVolumeFlag = .F.
>  ThisForm.Dzocx11.ItemList = ""
>  ThisForm.Dzocx11.MajorStatusFlag = .F.
>  ThisForm.Dzocx11.MessageCallbackFlag = .F.
>  ThisForm.Dzocx11.MinorStatusFlag = .F.
>  ThisForm.Dzocx11.MultiVolumeControl = 0
>  ThisForm.Dzocx11.NoDirectoryEntriesFlag = .T.
>  ThisForm.Dzocx11.NoDirectoryNamesFlag = .T.
>  ThisForm.Dzocx11.OldAsLatestFlag = .F.
>  ThisForm.Dzocx11.PathForTempFlag = .T.
>  ThisForm.Dzocx11.QuietFlag = .T.
>  ThisForm.Dzocx11.RecurseFlag = .F.
>  ThisForm.Dzocx11.StoreSuffixes = ""
>  ThisForm.Dzocx11.TempPath = m.dados
>  ThisForm.Dzocx11.ZIPFile = ""
>  ThisForm.Dzocx11.ZipSubOptions = ZSO_MINORCANCEL
>
>  * added for rev 3.00
>  ThisForm.Dzocx11.RenameCallbackFlag = .F.
>  ThisForm.Dzocx11.ExtProgTitle = "Atenção"
>  ThisForm.Dzocx11.ZIPString = ""
>  ThisForm.Dzocx11.MemoryBlockSize = 0