但是，這位仁兄寫的函式，我發現並不能用。

於是，做了一點小修改。我想，應該是有方法做的更好的。

如果下次我這裡再有這樣的需求，我便來研究一下。

在改之前，提示我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