LOCAL TemporaryFile AS String m.TemporaryFile = ADDBS(SYS(2023)) + "~test" + SYS(2015) + ".html" URLDownloadToFile(.NULL., "https://www.google.com", m.TemporaryFile) MODIFY FILE (m.TemporaryFile) ERASE (m.TemporaryFile) FUNCTION URLDownloadToFile (Caller AS Object, URL AS String, FileName AS String, Reserved AS Integer, CallBack AS Object) LOCAL XMLHttp AS MSXML2.ServerXMLHTTP60 LOCAL Result AS Integer m.XMLHttp = CREATEOBJECT("MSXML2.ServerXMLHTTP.6.0") m.XMLHttp.Open("Get", m.URL, .F.) m.XMLHttp.Send() STRTOFILE(m.XMLHttp.Responsebody, m.FileName, 0) ENDFUNC