Hi Valdimir

>Ыщьуерштп дшлу ершы
>
> loInetApp = CreateObject('InternetExplorer.Application')
> loInetApp.Navigate(url address)
> Do While loInetApp.ReadyState # 4
> DoEvents
> Enddo
> lcDocumentText=loInetApp.Document.documentElement.outerhtml
> =STRTOFILE(lcDocumentText,filename)

Thanks a lot for you code.