Запись и чтения в бинарном виде

[mannaz]

Привет всем! у меня такая проблема! Есть очень больший файл примерно 500м может быть и больше! мне нужно его открыть в бинарном режиме и считать и тут же записать! Но суть в том что не хочу помещать весь в файл в массив хочу сделать по честаям!
Примерно так
за один заход прочитать 10 байт и записать байт!


вот код но он не пашет мож чем подскажите за рание спасибо!

Код: Выделить всё

Dim inet(FileLen(10)) As Byte
        For a = 1 To FileLen("c:\sven.rar") Step 10
            Dim aS1 As New IO.FileStream("c:\sven.rar", IO.FileMode.Open)
            aS1.Read(inet, a, FileLen("c:\sven.rar"))
            aS1.Close()
            Dim aSr As New IO.FileStream("K:\sven.rar", IO.FileMode.Create)
            aSr.Write(inet, a, FileLen("c:\sven.rar"))
            aSr.Close()
        Next a

[Viper]

Ты бы хоть справку посмотрел по методам Read и Write перед написанием кода.

[mannaz]

Ты бы хоть справку посмотрел по методам Read и Write перед написанием кода.

Да я смотрел справку ! всё я нашол!

Код: Выделить всё

Dim inet(9) As Byte
        Dim aS1 As New IO.FileStream("c:\sven.rar", IO.FileMode.Open)
        Dim aSr As New IO.FileStream("K:\sven.rar", IO.FileMode.Create)
        For a = 0 To FileLen("c:\sven.rar") Step 10
        aS1.Read(inet, 0, 10)
        aSr.Write(inet, 0, 10)
         Next a
        aS1.Close()
        aSr.Close()

[Viper]

Да? И что же делает твой код в первом посте, и что делает код во втором? Вернее, не что делает, а что должен делать с твоей точки зрения.

[Metallikus]

1) Убедись в наличии у себя диска К:)))
2) Используй IO.FileMode.Append