Ошибка чтения файла, созданного WriteAllBytes

[immark]

Приветствую!
Помогите найти ошибку в коде, который копирует файл.
При попытке чтения копии файла получаю сообщение, что не удается открыть файл
Благодарю за внимание.

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

Dim inputFile = IO.File.Open(pathRead, IO.FileMode.Open)
        Dim bufferSize As Long = 50000
        Dim ostByte As Long = FileLen(pathRead)
        ' Adjust array length for VB array declaration.
        Dim bytes = New Byte(bufferSize - 1) {}
        Do
            If ostByte < bufferSize Then
                bytes = New Byte(ostByte - 1) {}
                My.Computer.FileSystem.WriteAllBytes(pathWrite, bytes, True)
                FileClose()
                MsgBox("DONE")
                Exit Do
            Else
                bytes = New Byte(bufferSize - 1) {}
                My.Computer.FileSystem.WriteAllBytes(pathWrite, bytes, True)
                ostByte = ostByte - bufferSize
            End If
        Loop

[Mikle]

А где чтение файла? Ты во второй файл нули записываешь.
И поправь первый пост, используй тег "code", читать же тяжело.

Так работает (я уменьшил bufferSize, чтобы не копировать большие файлы):

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

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim pathRead As String = "D:\Docs\Visual Studio 2008\Projects\IO\in.bin"
    Dim pathWrite As String = "D:\Docs\Visual Studio 2008\Projects\IO\out.bin"
    Dim inputFile = IO.File.Open(pathRead, IO.FileMode.Open)
    Dim outputFile = IO.File.Open(pathWrite, IO.FileMode.Append)
    Dim bufferSize As Long = 50
    Dim fileSize As Long = FileLen(pathRead)
    Dim Pos As Long = 0
    Dim Bytes(bufferSize - 1) As Byte

    While Pos < fileSize - bufferSize
      inputFile.Read(Bytes, 0, bufferSize)
      outputFile.Write(Bytes, 0, bufferSize)
      Pos = Pos + bufferSize
    End While
    inputFile.Read(Bytes, 0, fileSize - Pos)
    outputFile.Write(Bytes, 0, fileSize - Pos)
    inputFile.Close()
    outputFile.Close()
  End Sub
End Class


[immark]

Большое спасибо!
Теперь ясно, в чем ошибка.
Извините за некорректную вставку кода - не знал, как это сделать.