VBScript

Unpack MHT MIME Text into Files

Demonstrates Mht.UnpackMHTString, which extracts MHT data into its constituent parts: the HTML document and its referenced resources. The source is MHT MIME text supplied as a string.

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. Despite the method name, the source may be either literal MHT MIME text or a local MHT file path; Chilkat distinguishes the two by detecting MIME headers. The HTML is written under the chosen filename, and referenced parts are written into a sub-directory.

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.

'  Load the MHT MIME text into a string.
set sbMht = CreateObject("Chilkat.StringBuilder")
bLoaded = sbMht.LoadFile("qa_data/page.mht","utf-8")
If (bLoaded <> 1) Then
    outFile.WriteLine("Failed to load the MHT file.")
    WScript.Quit
End If

'  Unpack the MHT MIME text into its constituent parts.  The 1st argument may be MHT MIME text or a
'  file path; the 2nd is the unpack directory, the 3rd is the main HTML filename, and the 4th is the
'  sub-directory (relative to the unpack directory) for the referenced parts such as images and style
'  sheets.
success = mht.UnpackMHTString(sbMht.GetAsString(),"qa_output/unpacked","index.html","parts")
If (success = 0) Then
    outFile.WriteLine(mht.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("MHT unpacked.")

outFile.Close