[Iska]

Можете, например, попробовать так:

Скрытый текст

Код:

Imports System.IO

Module Module1
    Sub Main()
        Dim aArrayOfDoubles() = New Double() {1, 2, 3, 4, 5}
        Dim elem As Double

        Dim sSourceFile As String = "c:\MyArray.bin"
        Dim oFileStream As New System.IO.FileStream(sSourceFile, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
        Dim oBinaryWriter As New System.IO.BinaryWriter(oFileStream)

        For Each elem In aArrayOfDoubles
            oBinaryWriter.Write(elem)
        Next

        oBinaryWriter.Close()
        oFileStream.Close()



        Dim oFileStream2 As New System.IO.FileStream(sSourceFile, IO.FileMode.Open, IO.FileAccess.Read)
        Dim oBinaryReader As New System.IO.BinaryReader(oFileStream2)

        Try
            Do
                Console.WriteLine(oBinaryReader.ReadDouble())
            Loop
        Catch ex As EndOfStreamException
            ' Nothing to do
        Finally
            oBinaryReader.Close()
        End Try

        oFileStream2.Close()
    End Sub
End Module

Первая часть кода сохраняет значения массива double() в файл, вторая — читает значения double из файла.