Downloading a Webpage into a file

[pcrowley]

Hi
I'm pretty new to VB. I've been trying to use code similar to this to download a webpage and put it into a file.

Dim b() As Byte

Inet1.Protocol = icHTTP
Inet1.URL = URL

b() = Inet1.OpenURL(Inet1.URL, icByteArray)

Open App.Path + "\filename" For Binary Access Write As #1
Put #1, , b()
Close #1

My problem is that I'm getting a "Variable Not Defined" error for Inet1. Does anyone know how to fix this?
Thanx.

[koskinene]

Hi,

don't know what is wrong with your code. But te following works for me. It downloads a web page and saves it to disk HTML formatting included.

Hope it's of help.
Eero

Dim StrUrl As String
intFile = FreeFile()
StrUrl = "http://www.msn.com/"
Open "c:\temp\MSsource.txt" For Output As #intFile
Write #intFile, Inet1.OpenURL(StrUrl)
Close #intFile

[Matthew Gates]

Take a look at this link for download web pages as well.
http://www.vbworld.com/tips/tip501.html