文件存取的疑惑 我不懂啊~~~~~~~~~~~~~~~

Question

If  Not  Txtf.AtEndOfStream  Then
  Txtf3.Write  Txtf.ReadAll   ＊＊＊＊＊此时没有关闭这个文件
  Txtf2.Write  Txtf3.ReadAll  ＊＊＊＊＊这是读出来的当然是空的拉

Answer 1

文件存取很烦人   动不动就错误  
我加了一个
If    Not    Txtf.AtEndOfStream    Then
      Txtf3.Write    Txtf.ReadAll           
      txtf3.close
      Txtf2.Write    Txtf3.ReadAll  
这样也不行啊  我很菜     

Answer 2

 不好意思，刚才研究了一下你的意思和代码，发现只要稍加改动就可以：Dim fs     As New FileSystemObject
  Dim fd   As Folder
  Dim f   As File
  Dim Txtf   As TextStream, Txtf2    As TextStream, Txtf3    As TextStream, txtf4 As TextStream
  
  Private Sub Command1_Click()
  
  Set Txtf = fs.OpenTextFile("c:\aaa.txt", ForReading, True)
  Set Txtf3 = fs.OpenTextFile("c:\bbb.txt", ForAppending, True)
  Set Txtf2 = fs.CreateTextFile("c:\ccc.txt", True)
  Set txtf4 = fs.OpenTextFile("c:\bbb.txt", ForReading, True)
  If Not Txtf.AtEndOfStream Then
    Txtf3.Write Txtf.ReadAll
    Txtf2.Write txtf4.ReadAll
  Else
    Exit Sub
  End If
    Txtf.Close
    Txtf2.Close
    Txtf3.Close
  End Sub