Бинарный режим.

[Elkatib]

Вот такой вот ещё вопрос появился:
Как правильно считать половину файла?
Как Считать\записать байты в файл с определённой позиции?
Как записать файл, так, что бы мои данные (байты) записались начиная со следующего байта, который стоит после последнего, то есть как по сути дописать байты в конец!
Знаю только, как записать байты из одного файла в другой, то есть по сути сделать копию:

Open "C:\z.mp3" For Binary As #1
Open "C:\test.mp3" For Binary As #2
Dim Vbuf As String * 1000
Do Until EOF(1)
Get #1, , Vbuf
Put #2, , Vbuf
Loop
Close #1
Close #2

[vvs_adm]

Вариант 1:
1) Get #1, lof(1)\2 , Bufer
2) Get (Put) #1, Position , Bufer
3) Open ... For Append
Вариант 2:
1) MSDN -> Get Statement + LOF function
2) MSDN -> Get ( Put Statement )
3) MSDN -> Open Statement

[Elkatib]

Насчёт 2-ого:
Open "C:\z.mp3" For Binary As #1
Open "C:\test.mp3" For Binary As #2
Dim Vbuf As String * 1000
Do Until EOF(1)
Get #1, 1000, Vbuf
Put #2, , Vbuf
Loop
Close #1
Close #2

---------
как я понимаю в данном случае... код считывает все данные начиная с 1000 байта (z.mp3) и о записывает их в отдельный файл test.mp3
не знаю в чём причина, но данный код не работает!