又碰到个问题，关于文件打开，求教大虾，感激

Question

我有一段代码：
Set oFSO = CreateObject("scripting.filesystemobject")
'先打开一个文件进行读操作
    Set fil_Set = oFSO.GetFile(strPathSource)
    Set tmp_TS = fil_Set.OpenAsTextStream(ForReading)
    Do Until tmp_TS.AtEndOfStream
      Set oTextStream = oFSO.OpenTextFile(strPathTo, ForAppending, True, TristateFalse)
    ‘这里我想打开另一个文件，进行APPEND文件操作，但他报错。请教这错如何避免呢？
    LOOP多谢大虾指教

Answer 1

经调试，do循环体内的代码执行第一遍没问题，执行第二遍的时候就出现你所说的问题了。
    Do Until tmp_TS.AtEndOfStream
        Set oTextStream = oFSO.OpenTextFile("c:\abc.txt", ForAppending, True, TristateFalse)
        oTextStream.Close '添加这句再不出问题了
    Loop