Help! Binary questions!

[ArtemV]

Нуждаюсь в Вашей помощи! У меня есть два вопроса:

1. Следующая процедура, записывает строку "Hello" в начало файла. А как сделать чтобы в конец?
Open FileName For Binary Access Write As FileNum
Put FileNum, , "Hello"
Close FileNum

2. А эта процедура считывает данные, если файл типа "txt", то всё впорядке, а если "exe" считывается не всё. А мне надо всё.
Open FileName For Binary Access Read As FileNum
FileStr = Space(LOF(FileNum))
Get FileNum, , FileStr
Close FileNum

Пасиба!

[FaKk2]

На первое:
Открывай не как Write, а как Append
А насчет второго:
До куда считывается?

[ArtemV]

Обычно до больших пробелов, у меня до 3 символа!

[Urvin]

Ко второму: Вся беда может быть связана с String. Пробуй, раз открыл через бинарный, читать через бинарный. Иначе можно по обычному - по текстовому, раз уж пишешь в стринг.

[Dagobert]

Насчёт первого. В режиме Binary в командах Put и Get, можно задавать смещение относительно начала файла.
Put #F,Offset,Data
Насчёт второго, попробуй использовать байтовый массив.
Примерно так:

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

Dim bData() as Byte
Redim Preserve bData(Lof(FileNum))
Get #FileNum,,bData

Хотя у меня String всегда работает.