Как собрать несколько файлов в один

Dim FileAll, FSO, List, F, WriteFile
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8
 
FileAll = InputBox("Введите имя файла", "Копирование содержимого", "all.txt")
if FileAll = "" then
  MsgBox "Не задано имя файла!", _
         vbOKOnly + vbExclamation, _
         "Копирование содержимого"
  WScript.Quit
End if
 
Set FSO = CreateObject("Scripting.FileSystemObject")
List = FSO.OpenTextFile(WScript.Arguments(0), ForReading).ReadAll
Set WriteFile = FSO.OpenTextFile(FileAll, ForAppending, True)
 
For Each F In Split(List, vbNewLine)
  If F <> ""
    WriteFile.Write FSO.OpenTextFile(F, ForReading).ReadAll
    WriteFile.Write vbNewLine
  End If
Next
WriteFile.Close
 
Set WriteFile = Nothing
Set FSO       = Nothing
WScript.Quit