1) 选中project->References->Microsoft Scripting Runtime
2)Code such as:
Option Explicit
Private Sub Form_Load()
Dim FSO1 As FileSystemObject
Dim File1, File2 As File
Dim TextStream1 As TextStream
Set FSO1 = CreateObject("Scripting.FileSystemObject")
Set File1 = FSO1.GetFile("c:\windows\gbk.txt")
'读大于64kb的文件
Set TextStream1 = File1.OpenAsTextStream(ForReading, TristateMixed)
RichTextBox1.Text = TextStream1.ReadAll '记住,RichTextBox1.Font=宋体
TextStream1.Close
'写内存中数据到文件:如将richtextbox1中数据(即你说的内存中的数据)写入新建文件
FSO1.CreateTextFile "C:\Test.txt", True, True
Set File2 = FSO1.GetFile("C:\test.txt")
Set TextStream1 = File2.OpenAsTextStream(ForWriting, TristateMixed)
TextStream1.Write RichTextBox1.Text
TextStream1.Close
End Sub