VBSCRIPT 从文件夹中读取文本文件，然后写入同一位置的另一个文本文件

Question

我有一个包含文本文件和数据的文件夹，所以我想读取文件夹中的所有文本文件并将它们的记录写入另一个名为

outfile

的相同位置的文本文件。

根据我尝试过的代码，我能够将文本文件中的记录获取到输出文件中 (

outfile

)，但我的

Do While Not

循环不会终止。当它到达最后一个文件时，它会从第一个文件开始一次又一次地循环。

我也试过

Do While

循环给我错误。

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set folder = objFSO.GetFolder("C:\Precious\Projects\Sources\VBS\Testing")
Set outfile = objFSO.CreateTextFile("C:\Precious\Projects\Sources\VBS\Testing\testout.txt")

for each file in folder.Files
  Set testfile = objFSO.OpenTextFile(file.path, ForReading)

  Do While Not testfile.AtEndOfStream
      line = testfile.readline
      outfile.writeline(line)
  Loop 

  testfile.close
next

outfile.close