Deletes files given a file spec and a timeout or expiration value. This function is useful for quick clean up of temporary files created for Web display.
o.DeleteFiles(lcFileSpec, lnTimeout)
Parameters
lcFileSpec
A system file spec including wild cards.
lnTimeout
Timeout value - files prior to this timeout will be deleted.
Example
*** Create Tempoary PDF files for linked display lcCompany = UPPER(Request.Form("Company")) SELECT * ; FROM TT_Cust ; WHERE UPPER(Company) = lcCompany ; ORDER BY Company ; INTO CURSOR TQuery *** WWC_WWPDF is defined in WCONNECT.H *** or you can override it here oPDF=CREATE([WWC_WWPDF]) lcFile = SYS(2015) + ".pdf" *** Print the report to a temporay Web Directory oPDF.PrintReport("custlist.frx",Server.oConfig.owwDemo.cHTMLPagePath + "/temp/"+lcFile) *** Display link page and redirect THIS.StandardPage("Report Complete",[<a href="/wconnect/temp/] + lcFile + [">] +; [Click here to view the Customer Report</a>],,1,"/wconnect/temp/"+lcFile) *** Delete files that have 'timed out' (300 secs) DeleteFiles(Server.oConfig.owwDemo.cHTMLPagePath + "temp/*.pdf",300)
See also:
Library wwUtils© West Wind Technologies, 2004-2017 • Updated: 12/30/14
Comment or report problem with topic