Binär-Datei auslesen

[colblake]

Hi,


ich ( noch VB.NET-Anfänger ) will eine Binärdatei auslesen und dann später kopieren .Zunächst habe ich aber ein Problem mit dem Auslesen.
Dazu hab ich folgende Zeilen geschrieben :

        Dim StmRead As New FileStream(path, FileMode.Open)
        Dim StmBinaer As New BinaryReader(StmRead)

        Dim bufferSize As Integer = 255
        Dim readByte As Integer = 0
        Dim totalBytes As Long = 0

        Dim i As Integer = 0

        Dim m_buffer(bufferSize) As Char

        While (StmRead.Position < StmRead.Length)

            readByte = StmBinaer.Read(m_buffer, 0, bufferSize)

            totalBytes = totalBytes + readByte
            i = i + 1

        End While

Problem:
Die ausgelesene Menge an Bytes ist nicht annähernd so gross wie die wirkliche Größe der Datei
zB:
StmRead.Length liefert 4478976 Bytes
und
totalBytes nur 2430959 Bytes
Jemand ne Idee?

Mfg
Col.Blake

 

[colblake]

Hab die Lösung gefunden.
Für die die das Interesiert:

        Dim StmRead As New FileStream(path, FileMode.Open)
        Dim StmBinaer As New BinaryReader(StmRead)
        Dim bufferSize As Integer = 255
        Dim i As Integer = 0
        Dim m_buffer(bufferSize) As Byte


        While (StmRead.Position + 254 < StmRead.Length)

            m_buffer = StmBinaer.ReadBytes(bufferSize)
            
        End While