Local lcFolderDest,Doc o = Createobject('internetexplorer.application') o.Navigate('www.microsoft.com') lcFolderDest = 'c:\temp\' Inkey(3) Doc = o.Document For Each element In Doc.images DownloadPicture( lcFolderDest, element.src) DoEvents Endfor Procedure DownloadPicture(tcDestDir,src) Local loRequest, lcUrl, lcFilename lcUrl =src lcFilename = tcDestDir+justfname(src) loRequest = Createobject('MsXml2.XmlHttp') loRequest.Open("GET",lcUrl,.F.) loRequest.Send() Strtofile(loRequest.ResponseBody,lcFilename) Endproc