>I need to impliment the DynaZip Major Status Callback Procedure in my VFP
>application. Anyone know how I do this?
>
>Thanks
>
>(Thanks, Mark, for your previous help)

Using Mark's class:

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.llSuccess

Is it what you want?