请教VB中怎么用代码创建单个文件网页(*mht)

请问VB中如何用代码创建单个文件网页(*.mht)
请问VB中如何用代码在指定路径下创建单个文件网页(*.mht)，如(D:\File\123.mht).然后插入内容和图片，用IE进行浏览，能看到所插入的内容及图片。

------解决方案--------------------
基本格式是这样：
原理就是类似于EMAIL邮件编码，用BASE64等编码方式

HTML code

From: <由 Microsoft Internet Explorer 5 保存>
Subject: =?gb2312?B?dmxvb2t1cLC0MsHQsunV0l+w2bbI1qq1wA==?=
Date: Fri, 16 Sep 2011 13:05:35 +0800
MIME-Version: 1.0
Content-Type: multipart/related;
    type="multipart/alternative";
    boundary="----=_NextPart_000_0000_01CC7471.52D02180"
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.5512

This is a multi-part message in MIME format.

------=_NextPart_000_0000_01CC7471.52D02180
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: http://img.baidu.com/img/logo-zhidao.gif

------=_NextPart_000_0000_01CC7471.52D02180
Content-Type: image/gif
Content-Transfer-Encoding: base64
Content-Location: http://img.baidu.com/img/iknow/avarta/48/r6s1g1.gif

------解决方案--------------------
'创建指定路径下的网页
IsFile.CreateTextFile FilePath
'得到指定路径下的网页
Set fil = IsFile.GetFile(FilePath)
'对指定路径下进行操作类型。ForWriting：写入
Set ts = fil.OpenAsTextStream(ForWriting)
'将指定内容写入到网页中
ts.Write FileText

请教VB中怎么用代码创建单个文件网页(*mht)

相关推荐