Foro de elhacker.net

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