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) >EndprocMike,