Dim FullPath As String = "c:\test\test.bin"
'буфер на 5 мегабайт (инициализация нулями)
Dim Bufer(5 * 1024 * 1024) As Byte
Using FS1 As New FileStream(FullPath, FileMode.Create)
Using Writer As New BinaryWriter(FS1)
Writer.Write(Bufer)
End Using
End Using
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 116