Hi
I have a problem with split zip files. As result I'v got only 1 file with size 1,7Mb instead 8 files by 200Kb. What do I wrong?

Thanks
Denis

PRIVATE m.retn_code, mvsettings
LOCAL lni

This.pmks_zipfilename = "c:\denis.zip"
Thisform.oleAnimation.autoPlay  = .t.
Thisform.pmks_zipfilesize = 200*1024  && 200Kb per file
#DEFINE ZIP_ADD     4

*#DEFINE MV_USEMULTI -32768
#DEFINE MV_USEMULTI 0x8000
#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

#DEFINE NUM_FSAENTRIES 2

LOCAL ARRAY fsa[NUM_FSAENTRIES]

FOR lni = 1 to NUM_FSAENTRIES
	STORE Thisform.pmks_zipfilesize TO fsa[lni]
NEXT

STORE 0 TO fsa[NUM_FSAENTRIES]

ThisForm.dz1.ItemList = ALLTRIM(Thisform.pmks_sourcemask)


  mvsettings = MV_USEMULTI
  mvsettings = mvsettings + MV_TOHD
ThisForm.dz1.MultiVolumeControl =  mvsettings 
ThisForm.dz1.ZIPFile = ALLTRIM(Thisform.pmks_zipfilename)
ThisForm.dz1.MajorStatusFlag = .T.
ThisForm.dz1.MinorStatusFlag = .T.
ThisForm.dz1.MessageCallbackFlag = .T.
ThisForm.dz1.noDirectoryNamesFlag = .T.
ThisForm.dz1.noDirectoryEntriesFlag = .T.
ThisForm.dz1.RecurseFlag = .T.

ThisForm.dz1.SetFileSizeArrayDim(NUM_FSAENTRIES)
FOR lni = 1 TO NUM_FSAENTRIES
  ThisForm.dz1.SetFileSizeArrayValue(fsa[lni], lni - 1)
NEXT

_VFP.AutoYield = .F.
ThisForm.dz1.ActionDZ = ZIP_ADD
THisform.oleAnimation.AutoPlay = .f.
_VFP.AutoYield = .T.