Compress and move all Mail.DAT files from the Presort folder

[Dave]

Use the command below to ZIP the Mail.dat files from the current presort folder to another location in a script!.

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