how to read x numbers of bytes in file and write them to other file

[HossamAlert]

how to read number of bytes of file and write them in text file

my starting code is :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myfile1 As String = ("D:\out\1.jpg")
Dim myfile2 As String = ("D:\out\1.txt")
Dim arraySize = 49
Dim buffer() As Byte = New Byte(arraySize) {}
Using fs As New FileStream(myfile1, FileMode.Open, FileAccess.Read, FileShare.None)
fs.Read(buffer, 0, buffer.Length)
End Using
'i stoped here
End Sub

Continue reading...