文件操作

Question

Private Sub Command1_Click()
    Dim objFs As FileSystemObject
    Dim objTestStream As TextStream
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objTestStream = objFs.OpenTextFile(strFileName, ForWriting, True, TristateUseDefault)
    objTestStream.Write Text1.Text
    
    objTestStream.Close
End Sub

Answer 1

Private Sub Command1_Click()
    Dim objFs As FileSystemObject
    Dim objTestStream As TextStream
    Set objFs = CreateObject("Scripting.FileSystemObject")
    Set objTestStream = objFs.OpenTextFile(strFileName, ForReading, False, TristateUseDefault)
    Text1.Text = objTestStream.ReadAll
    
    objTestStream.Close
End Sub

Answer 2

open和PUT就可以了，没必要用到FILE SYSTEM OBJECT

Answer 3

把文本文件内容读取TextBox：
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)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile