VBScript把文档修改为UTF-8格式

参考文档：http://www.cnblogs.com/waver/articles/1283842.html

但是，这位仁兄写的函数，我发现并不能用。

于是，做了一点小修改。我想，应该是有方法做的更好的。

如果下次我这里再有这样的需求，我便来研究一下。

在改之前，提示我LoadFile有问题。

函数更改：

Function WriteToFile(file, Message)
	Dim Stm1
	Set Stm1 = CreateObject("ADODB.Stream")
	Stm1.Type = 2
	Stm1.Open
	Stm1.Charset = "UTF-8"
	'Stm1.Charset = "Unicode"
	Stm1.Position = Stm1.Size
	Stm1.WriteText Message
	Stm1.SaveToFile file,2
	Stm1.Close
	set Stm1 = nothing
End Function

这个Message是文档里所有的信息，这里我用Readall读取

Set WriteFile = fso.OpenTextFile(“test.txt", 1, True)
Message = WriteFile.ReadAll
WriteFile.Close