在vb中，如何将多个txt文件内容合并在一个文件中，如文件是a13036.txt到a13556.txt，如何将他们合并在一个文件中？？？请赐教！！

顶一下！！

open app.path & "/a.txt" for input as 1

input #1 aa

close 1

open app.path & "/b.txt" for input as 2

input #1 bb

close 2

open app.path & "/c.txt" for append as 3

write #1 aa
write #1 bb

close 3

[此贴子已经被作者于2006-5-11 17:17:32编辑过]

刚出上午有个同学让我帮做了一个

[QUOTE]
-- 作者：VB爱上我
open app.path & "/a.txt" for input as 1
input #1 aa
close 1
open app.path & "/b.txt" for input as 2
input #1 bb
close 2
open app.path & "/c.txt" for append as 3
write #1 aa
write #1 bb
close 3
[/QUOTE]
上面的程序很大问题啊
open app.path & "\a.txt" for input as #1
line input #1, aa
open app.path & "\b.txt" for input as #2
line input #2, bb
open app.path & "\c.txt" for output as #3
write #3, aa
write #3, bb
close

谢谢,很好用!!!!
有没有源代码!!能不能借来参考以下!!!

那个压缩包很好用!!!

开始没仔细看3楼的代码，辉少一讲，汗……
3楼为什么每个文本只读一行呢……

'这是一个文件合并的代码,可以合并所有的文件,非常简单,初学者值得看一看
'程序设计:飞羽 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

Public Function MergeFile(ByVal File1 As String, ByVal File2 As String, ByVal OutFile As String) As BooleanClass
On Error GoTo MF_EXCEP
Set MergeFile = New BooleanClass
Dim fData As New ArrayClass '定义数组用于存放文件数据
Dim fLen As New Int32Class
fData = NewArray.FromFile(File1) '读 File1
fLen = fData.Length + 1 '作为下一个文件的开始位置
fData.ToFile OutFile, , True '写 File1 到 OutFile
fData = NewArray.FromFile(File2) '读 File2
fData.ToFile OutFile, fLen '写 File2 到 OutFile
MergeFile = True '返回 True 表示成功，否则表示失败
Exit Function
MF_EXCEP:
End Function