Download and save an HTML page with the Internet Transfer control

Download and save an HTML page with the Internet Transfer control

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:

' 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 argumentFunction 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

See also  How to Avoid Money Transfer Scams  

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist