Join Two Files Together

Join Two Files Together

The DOS Copy command allows you to take the contents of two different files and put them one after the other into a third file. You can do the same thing in VB with this subroutine:

 Public Sub JoinFiles(Source1 As String, Source2 As String, _	Dest As String)	Dim Buffer() As Byte	Open Source1 For Binary Access Read As #1	Open Source2 For Binary Access Read As #2	Open Dest For Binary Access Write As #3	ReDim Buffer(1 To LOF(1))	Get #1, , Buffer	Put #3, , Buffer	ReDim Buffer(1 To LOF(2))	Get #2, , Buffer	Put #3, , Buffer	Close #1, #2, #3End Sub

In a production app, use FreeFile rather than hard-code the file handles.

See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist