vb 合并txt

在工程中的"引用"里找一项Microsoft Scripting RunTime打上勾
在窗体上放3个按钮，3个TEXTBOX文本框，把代码复制过去就能用
记得把Text控件里的Text清空否则ccc.txt里显示会多个text3
Dim file As FileSystemObject
Dim obj As TextStream
Dim str As String
Dim objfile As TextStream
Dim lines As String
Dim a() As String
Dim b() As String
Dim c(0 To 1000) As String '定义一个数组
Dim i As Integer

Private Sub Command1_Click()
On Error Resume Next
Set file = New FileSystemObject
Set obj = file.OpenTextFile("c:\a.txt")
str = obj.ReadAll
lines = obj.Line
a = Split(str, vbCrLf) '把OBJ按回车分成N行
Text1.Text = str
End Sub

Private Sub Command2_Click()
On Error Resume Next
Set file = New FileSystemObject
Set obj = file.OpenTextFile("c:\b.txt")
str = obj.ReadAll
b = Split(str, vbCrLf) '把OBJ按回车分成N行
Text2.Text = str
End Sub

Private Sub Command3_Click