转载: 通过VBS合并2个文本文件

合并C:\file1.txt与C:\file2.txt，并另存为C:\output.txt

示例代码：

Const ForReading = 1  
Set fso = CreateObject( "Scripting.FileSystemObject" )  
Set utputFile = fso.CreateTextFile( "C:\output.txt",true )  
 
Set textFile = fso.OpenTextFile("C:\file1.txt", ForReading )  
strText = textFile.ReadAll  
textFile.Close  
outputFile.WriteLine strText  
 
Set textFile = fso.OpenTextFile("C:\file2.txt", ForReading )  
strText = textFile.ReadAll  
textFile.Close  
outputFile.WriteLine strText  
 
outputFile.Close