Копирование файла с помощью Get - Put

[IAMRAT]

Ни когда не работал с файлами в Бинарном режиме. Почитал MSDN... вроде должно работать, так нет. Не пойму в чем ошибка.

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

Dim buf() As Byte
Open "C:\001.bin" For Binary As #1
Open "C:\002.bin" For Binary As #2
Get #1, , buf
Put #2, , buf
Close #1
Close #2

[Хакер]

Buf имеет нулевой размер. 0 байт читается, 0 байт пишется.

Впрочем, если кто-то всерьёз решит делать вышеуказанное для копирования файлов, то это будет очень тупо.

[IAMRAT]

Копировать - тупо, это я не спорю. Просто разбираюсь с Binary.

[Mikle]

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

Dim buf() As Byte
Dim nf1 As Integer
Dim nf2 As Integer

nf1 = FreeFile
Open "C:\001.bin" For Binary As #nf1
nf2 = FreeFile
Open "C:\002.bin" For Binary As #nf2
  ReDim buf(Lof(nf1)-1)
  Get #nf1, , buf
  Put #nf2, , buf
Close #nf1
Close #nf2

[IAMRAT]

А почему нужно уменьшать массив на один байт? Вроде и без этого все работает.

[Mikle]

Задавая размер массива с помощью Dim (ReDim), ты задаёшь не РАЗМЕР, а ВЕРХНИЙ ИНДЕКС. Индексы нумеруются от нуля (по умолчанию), то есть

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

Dim a(9) As Byte

создаёт массив на 10 байт.
Если не уменьшить индекс на 1, получится файл на 1 байт длиннее, чем нужно.

[IAMRAT]

Точно. Спасибо. Все работает, разобрался.