VBScript

Create an MHT Archive from a URL into a ZIP

Demonstrates Mht.GetAndZipMHT, which creates MHT output from a live web page and stores it as an entry inside a ZIP archive.

The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background. An MHT (MHTML) web archive is a single MIME file that bundles an HTML page together with its referenced resources, such as images and style sheets, so the page can be stored or viewed offline as one file. The ZIP is created if it does not already exist; otherwise the entry is added to it.

Chilkat VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

set mht = CreateObject("Chilkat.Mht")

'  The file paths are relative to the application's current working directory.  Absolute paths
'  may also be used.  Supply the paths appropriate to your own environment.

'  Create MHT output from a live web page and store it as an entry inside a ZIP archive.  The 2nd
'  argument is the entry name within the ZIP; the 3rd is the ZIP file path.  The ZIP is created if it
'  does not already exist.
success = mht.GetAndZipMHT("https://example-code.com/crumb/index.html","page.mht","qa_output/page.zip")
If (success = 0) Then
    outFile.WriteLine(mht.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("MHT stored in the ZIP archive.")

outFile.Close