'这是一个文件合并的代码,可以合并所有的文件,非常简单,初学者值得看一看
'程序设计:飞羽 QQ:406088125

'不要用任何控件,建立一个Form,拉一个CommandButton,一个TextBox即可.
'拉好了之后就把这里的话复制到VB的代码框中
'------------------------------------------------------------------------------

'定义TheFiles为字符串,括号中的是要合并的文件的最大个数,你可以根据需要更改
Dim TheFiles(250) As String

Private Sub Command1_Click() '当按下按钮时

'定义
Dim SavedSpot As Long
Dim theByte() As Byte
Dim Length As Long

SavedSpot = 1

'开始循环, 其中i=1为起始第 i 个文件, To 2 是最后一个文件
For i = 1 To 2 '你可以根据需要改变 To 后面的 2 ,但是 i = 1 千万不要改.
'为什么?那你就试一试

Length = FileLen(TheFiles(i)) '求文件i的长度

ReDim theByte(Length) '设置文件i的长度

Open TheFiles(i) For Binary Access Read As #1 '打开文件i
Get #1, , theByte() '获取字节
Close #1 '关闭文件

'Text1.Text 输入你要生成的文件的路径
Open Text1.Text For Binary Access Write As #1 '建立要生成的文件
Put #1, SavedSpot, theByte() '把获取的字节置于你要生成的文件中
Close #1 '关闭

SavedSpot = SavedSpot + Length

Next i '循环重复

End Sub

'以下代码在程序开始时自动运行
Private Sub Form_Load()
TheFiles(1) = "E:\a.txt" '你要合并的文件之一
TheFiles(2) = "E:\b.txt" '你要合并的文件之二
'你可以根据需要,添加TheFiles(x) = "你要合并的文件之x的路径"
End Sub