Code: Select all
SET SAFETY OFF
ON ERROR com_Msg=MESSAGE()
com_copyFolder="C:\accuzip\Archive\"
* Copies CASS Report
rename (FORCEEXT(DBF(),"pdf")) TO (ADDBS(com_copyFolder)+FORCEEXT(JUSTFNAME(DBF()),"")+" CASS"+".PDF")
* NCOALink Recency Report
rename (FORCEEXT(DBF(),"")+"*coa*.pdf") TO (ADDBS(com_copyFolder)+"*.*")