Binaryworld - Download and save an HTML page with the Internet Transfer control ... [ VB -> Active-X ]

You can easily download an HTML page by using the Internet Transfer Control (INet). Here's a reusable routine that uses this control to download the HTML page at the specified URL and optionally save it to a local file. In either case the routine returns the contents of the page as a string:

Click here to copy the following block

' Return the contents of an HTML page at a given URL
' and optionally save it to a file
'
' uses an Internet Transfer Control,
' that must be passed in the first argument

Function GetHTMLPage(INet As INet, ByVal URL As String, _
  Optional FileName As String) As String
  Dim fnum As Integer

  ' cancel any pending operation
  INet.Cancel
  ' set protocol to HTTP
  INet.Protocol = icHTTP
  ' get the page
  GetHTMLPage = INet.OpenURL(URL)

  ' save to a file, if requested
  If FileName <> "" Then
    fnum = FreeFile
    Open FileName For Output As #fnum
    Print #fnum, GetHTMLPage;
    Close #fnum
  End If

End Function