NOTE:You can change the "Move to" path that is currently set to the C:\
Code: Select all
SET OLEOBJECT ON
com_FileName=FORCEEXT(JUSTFNAME(FILETOSTR("Cleanup.ini")),"")
com_PresortPath=ADDBS(JUSTPATH(DBF("_azqualification")))
oZipObject=CREATEOBJECT("dzactxctrl.dzactxctrl.1")
oZipObject.ItemList=["]+com_PresortPath+[Maildat.*]+["]
wait window oZipObject.ItemList
oZipObject.ZIPFile="C:\"+com_FileName+"_POSTALONE.zip"
oZipObject.ActionDZ = 4