Download Web Page to MHT with w/ Disk Cache

Downloads a web page into a .mht web archive. Embedded images and style sheets are loaded and/or saved to a disk cache. Note: The disk caching functionality is available in official new versions released after 30-October-2007, or in the current pre-release downloads.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim mht As New Chilkat.Mht()

Dim success As Boolean

success = mht.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox("Mht component unlock failed")
    Exit Sub
End If


'  Use a single directory to hold cached files.
mht.NumCacheLevels = 0
mht.AddCacheRoot("c:/temp/mhtCache/")

'  Tell the MHT component to save files to cache,
'  and to retrieve from cache if possible:
mht.FetchFromCache = true
mht.UpdateCache = true

'  The 1st time this is run, the parts (image files,
'  style sheets, etc.) will be saved to the disk cache.
'  The 2nd time this is run, the parts will load from cache.
'  Note: The main content (i.e. the HTML page)
'  is not saved to cache, nor is it retrieved from cache.
'  It is only the sub-parts (embedded images, style sheets)
'  that are saved to and loaded from cache.
success = mht.GetAndSaveMHT("http://www.intel.com/","intel.mht")

TextBox1.Text = TextBox1.Text & mht.LastErrorText & vbCrLf
TextBox1.Refresh()

If (success <> true) Then
    MsgBox("MHT Failed!")
Else
    MsgBox("MHT Created!")
End If