Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Beginner
May 11, 1999

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, #3
End Sub
In a production app, use FreeFile rather than hard-code the file handles.
Russell Davis
Comment and Contribute






(Maximum characters: 1200). You have 1200 characters left.



Thanks for your registration, follow us on our social networks to keep up-to-date