там нада помойму OpenFile юзать !!
ну прост я не помню в справке нада посмотреть !! у меня ее нету !!
а ты открываеш файл для чтения, по этому и не дописывается у файл !!
вот жеж кста те написали:
While Not(Eof(Your_File))
Readline$ your_File
Wend
;потом записываете вашу инфу
Или вот так:
filename$="имя_вашего_файла"
file=OpenFile(filename$)
SeekFile filе,FileSize(filename$)
|