*
* Grab file from Internet
*
Function getfilefromurl
Lparameters lcRemoteFile,lcLocalFile
Local lnReturn
Declare Integer URLDownloadToFile In urlmon.Dll;
  INTEGER pCaller, String szURL, String szFileName,;
  INTEGER dwReserved, Integer lpfnCB
lnReturn = URLDownloadToFile ( 0 , lcRemoteFile, lcLocalFile,  0 ,  0 )
Return lnReturn= 0 

  m.lcmoneyweb='http://investing.reuters.co.uk/Investing/Currencies.aspx'
  m.cTmpFile =SYS( 2023 )+'\'+SYS( 2015 )+'.HTM' && SYS( 2015 )
  DO getfilefromurl WITH m.lcmoneyweb, m.cTmpFile