Dim fs As New FileStream("C:\test.dat", FileMode.OpenOrCreate)
        Dim sw As New BinaryWriter(fs) 'Create the writer for data 
 
        Dim Header As New VB6.FixedLengthString(8) 'Header für die einzelnen 
        ' Records 
        Header.Value = Chr(1) & Chr(0) & Chr(0) & Chr(32) & Chr(0) & Chr(0) & _
          Chr(0) & Chr(0)
 
        sw.Write(Header.Value)
 
        sw.Close()
        fs.Close()
 
        fs = New FileStream("c:\test.dat", FileMode.Open)
        Dim ba(CInt(fs.Length - 1)) As Byte
        fs.Read(ba, 0, fs.Length)
        fs.Close()
        For Each b As Byte In ba
            Debug.Write(b.ToString("x2") & " ")
        Next

08 01 00 00 20 00 00 00 00

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist