用Text Box怎么打开文本文件?

Question

但是没有办法保存呀,text box没有savefile呀

Answer 1

假如text box 名字为text1,那么就是先用open打开一个文件Open app.path & "\filename1.txt" For Append As #1
         Write #1, text1.text
Close #1

Answer 2

自己用 open、close语句实现文件输入/输出，具体可查MSDN。或者用richtextbox控件实现。

Answer 3

读取：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)写入：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile

Answer 4

使用FSO对象，可以方便的读写文本文件。