Código:
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
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.