'*******************************************************************
'Работа с бинарными файлами
'Aleksey S Nemiro http://aleksey.nemiro.ru
'http://kbyte.ru - портал для программистов
'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
'*******************************************************************
 
'Запись в бинарный файл:
Try
 Dim myFileStream As FileStream
 myFileStream = New FileStream("C:\Binary.dat", FileMode.Create)
 Dim myBinaryWriter As New BinaryWriter(myFileStream)
 myBinaryWriter.Write("Привет! Это бинарные данные :)")
 myBinaryWriter.Close()
 myFileStream.Close()
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
'или
Try
 Using myFileStream As New FileStream("C:\Binary.dat", FileMode.Create)
 Using myBinaryWriter As New BinaryWriter(myFileStream)
 myBinaryWriter.Write("Привет! Это бинарные данные :)")
 End Using
 End Using
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
 
'*******************************************************************
 
'Чтение бинарного файла:
Try
 Dim myFileStream As System.IO.FileStream
 myFileStream = New System.IO.FileStream("C:\Binary.dat", FileMode.Open)
 Dim myBinaryReader As New System.IO.BinaryReader(myFileStream)
 'считываем файл в переменную bData
 Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 'можно использовать другие методы чтения, например:
 'myBinaryReader.ReadString()
 myBinaryReader.Close()
 myFileStream.Close()
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try
'или
Try
 Using myFileStream As New System.IO.FileStream("C:\Binary.dat", FileMode.Open)
 Using myBinaryReader As New System.IO.BinaryReader(myFileStream)
 'считываем файл в переменную bData
 Dim bData() As Byte = myBinaryReader.ReadBytes(myFileStream.Length)
 'можно использовать другие методы чтения, например:
 'myBinaryReader.ReadString()
 End Using
 End Using
Catch ex As Exception
 MsgBox(ex.ToString) 'ошибка
End Try