Visual Basic 6.0

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 Visual Basic 6.0 Downloads

Download Chilkat for Visual Basic 6.0

Visual Basic 6.0

Dim success As Long
success = 0

Dim mht As New ChilkatMht

'  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.
Dim sbMht As New ChilkatStringBuilder
Dim bLoaded As Long
bLoaded = sbMht.LoadFile("qa_data/page.mht","utf-8")
If (bLoaded <> 1) Then
    Debug.Print "Failed to load the MHT file."
    Exit Sub
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
    Debug.Print mht.LastErrorText
    Exit Sub
End If

Debug.Print "MHT unpacked."