Visual Basic

        Dim buffer As Byte()<br />
        Dim bytesRead As Integer<br />
        Dim fStreamIN As New FileStream("c:\a.txt", FileMode.Open, FileAccess.Read)<br />
        Dim fStreamOUT As New FileStream("c:\b.txt", FileMode.Append, FileAccess.Write)<br />
        ReDim buffer(fStreamIN.Length)<br />
 <br />
        bytesRead = fStreamIN.Read(buffer, 0, fStreamIN.Length)<br />
        MsgBox("Read bytes:" + Str(bytesRead) + " Expected:" + Str(fStreamIN.Length))<br />
        MsgBox("byte 1:" + Chr(buffer(0)) + vbCrLf + _<br />
"byte 2:" + Chr(buffer(1)) + vbCrLf + _<br />
"byte 3:" + Chr(buffer(2)) + vbCrLf)<br />
        fStreamOUT.Write(buffer, 0, buffer.Length)<br />
 <br />
        fStreamOUT.Flush()<br />
        fStreamIN.Close()<br />
        fStreamOUT.Close()