Private Sub WriteBinary(ByVal path As String)
 
        Dim fs As IO.FileStream
        Dim bw As IO.BinaryWriter
 
        Try
            fs = New IO.FileStream(path, IO.FileMode.Create, _
              IO.FileAccess.Write, IO.FileShare.None)
            bw = New IO.BinaryWriter(fs)
            For i = 1 To 5
                bw.Write(CInt(i * 3))
                bw.Write(CInt(i * 5))
                bw.Write(CDbl(i * 3.14))
            Next
        Catch ex As Exception
            MsgBox("Oops!")
        Finally
            If bw IsNot Nothing Then bw.Close()
        End Try
 
    End Sub
 
    Private Sub ReadBinary(ByVal path As String)
 
        Dim fs As IO.FileStream
        Dim br As IO.BinaryReader
 
        Try
            fs = New IO.FileStream(path, IO.FileMode.Open, IO.FileAccess.Read, _
              IO.FileShare.Read)
            br = New IO.BinaryReader(fs)
 
            Do
                Dim i1 As Integer = br.ReadInt32
                Dim i2 As Integer = br.ReadInt32
                Dim d1 As Double = br.ReadDouble
 
                Debug.WriteLine("Data: i1=" & i1.ToString() & " i2=" & _
                  i2.ToString() & " d1=" & d1.ToString())
            Loop
        Catch ex As IO.EndOfStreamException
        Catch ex As Exception
            MsgBox("Ungültige Daten")
        Finally
            If br IsNot Nothing Then br.Close()
        End Try
 
    End Sub
 
    Private Sub Test()
 
        WriteBinary("C:\data.dat")
        ReadBinary("C:\data.dat")
 
        IO.File.Delete("C:\data.dat")
 
    End Sub

________
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