local oZip oZip = newobject("DynaZip", "DynaZip.FXP") with oZip .cZip_ZipFile = m.tcZipFile .cZip_ItemList = m.tcItemList * .lZip_Recurse = .f. && not needed because this is the default value .lZip_Quiet = .t. .lZip_DeleteOriginal = m.tlDeleteOriginal && Delete the original file && ARE YOU SURE YOU REALLY WANT TO DO THIS??? && If you really want to do this, then you have to follow the && comments on this property that are provided in the DynaZip.prg .lZip_NoDirNames = .t. * .lUnz_NoDirItems = .t. && this is an unzip option .lZip_NoDirEntries = .t. * .lZip_CryptFlag = .f. && not needed because this is the default value * .lZip_CryptCode = "" && not needed because this is the default value * .dz_Zip_Function = 4 && not needed. this is taken care of in the ZipAdd method * .lUnz_OverWrite = .t. && this is an unzip option * .lUSO_OverWrite_RO = .t. && this is an unzip option .lZSO_MinorCancel = .t. .lZSO_ExternalProg = .t. .lZSO_ExtProgCancel = .t. .cZip_ExtProgTitle = "Adding files to archive "+m.tcZipFile * .lZip_NoMsgs = .t. llSuccess = .ZipAdd() .release() endwith release oZip return m.llSuccessIs it what you want?