Question

用VB6.0实现将多个TXT文件合并成一个TXT文件

多个TXT的文件名都是以01，02,03...这些数字表示，但是每次要合并的文件数量和文件名都不一定一样，每个TXT文件的大小在10M以内。希望这方面的告诉能够不吝赐教，万分感谢！！！

Answer 1

Private Sub CommandButton1_Click()
Dim fRead, fWrite
Dim i%
Dim Buf() As Byte
Dim ReadFile(10) As String
Dim sPath As String
Dim sName As String
sPath = "D:\"
ReadFile(0) = "01.Txt": ReadFile(1) = "02.txt": ReadFile(2) = "03.txt"
fWrite = FreeFile
Open "D:\合并.txt" For Binary As fWrite
For i = 0 To 2
fRead = FreeFile
sName = sPath + ReadFile(i)
Open sName For Binary As fRead
ReDim Buf(FileLen(sName) + 1)

Get fRead, , Buf
Buf(UBound(Buf)) = 10
Buf(UBound(Buf) - 1) = 13
Put fWrite, , Buf
Close (fRead)

Next
Close (fWrite)

End Sub