Как слить несколько файлов в один файл? - VB

Формулировка задачи:

Ну да!!!...Ну подскажите же, как слить несколько файлов в один файл, и как потом их обратно вытащить целыми и невредимыми

Решение задачи: «Как слить несколько файлов в один файл?»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Command1_Click()
 
Dim a() As Byte
Dim b() As Byte
Dim c() As Byte
Dim d() As Byte
Dim al As Long, bl As Long
 
al = FileLen('C:11.exe')
bl = FileLen('C:12.exe')
 
ReDim a(al - 1)
Open 'C:11.exe' For Binary Access Read As #1
Get #1, , a()
Close #1
 
ReDim b(bl - 1)
Open 'C:12.exe' For Binary Access Read As #1
Get #1, , b()
Close #1
 
Open 'C:13.exe' For Binary Access Write As #1
Put #1, , a
Put #1, al + 1, b
Close #1
 
ReDim c(al - 1)
Open 'C:13.exe' For Binary Access Read As #1
Get #1, , c()
Close #1
 
ReDim d(bl - 1)
Open 'C:13.exe' For Binary Access Read As #1
Get #1, al + 1, d()
Close #1
 
Open 'C:14.exe' For Binary Access Write As #1
Put #1, , c()
Close #1
 
Open 'C:15.exe' For Binary Access Write As #1
Put #1, , d
Close #1
 
Caption = Now
 
End Sub
                        