Page 1 of 1

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

Posted: Wed May 09, 2012 2:10 pm
by 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