Aver si alguien puede ayudarme con este codigo. BinaryWriter y BinaryReader

[70N1]

me da un fallo marcado abajo en verde

Código [Seleccionar] Expandir

Imports system.io

Public Class Form1

   Const count As Integer = 100 * 1048576
' constante para la capacidad de buffer

   Public FileLen As Integer, inputPath As String
'declaro como publicas filelen que es el tamaño del archivo y inputpath que es el 'archivo de entrada


   Public Sub escribir(ByVal output1 As String, ByVal buffer() As Byte)

       Dim brWriter As System.IO.BinaryWriter
       Dim brReader As System.IO.BinaryReader
       Dim buffer(count) As Byte
       Dim bytesRead() As Integer

       FileLen = My.Computer.FileSystem.GetFileInfo(inputPath).Length

       While FileLen > 0
           ReDim buffer1(count )
         bytesRead(StrReverse(FileLen)) = brReader.Read(buffer, 0, (count))<---fallo
'hago una cuenta atras del tamaño del archivo          
 MsgBox(bytesRead)
           If bytesRead(StrReverse(FileLen)) = 0 Then
'observo si bytesread esta vacio
               Exit While
           End If
           brWriter.Write(buffer, 0, bytesRead(StrReverse(FileLen)))
' escribo en el archivo el buffer que es un array de bytes
           FileLen = FileLen - bytesRead(StrReverse(FileLen))
' resto los bytes leidos
       End While
       brWriter.Close()
       brReader.Close()
       End
   End Sub
End Class

Si pudiecen exarme una manita... se escribir en el archivo todos los bytes completos de una, pero lo que quiero es escribir bytes por bytes.

[Keyen Night]

¿Por qué no lo haces con Stream? tan sencillo como abrir un FileStream, recorrer los Bytes a escribir, escribilos con .WriteByte() y cerrar el Stream. con menos de 10 líneas de código lo haces.

[70N1]

ok. muchas gracias