'****************************** ' Чтение бинарного файла '******************************'Назначаем дескриптор файлаnFileHandle=FreeFile'Открываем бинарный файлOpen "C:TEST.BIN" For Binary As #nFileHandle'Подготовить строку из 20 пробеловМуString=String(20," ")'Прочитать 20 байт из позиции 50 файлаGet #nFileHandle, 50, MyString'Закрыть файлClose nFileHandle'Для прочтения всего файла можно 'вместо строки с Get использовать комбинацию на основе цикла Do While...Loop, 'которая считывает в str1 по одному символу и накапливает 'их в str2:Do While Not EOF (nFileHandle) Get #nFileHandle, str1 str2=str2 & str1 Loop'******************************* ' Запись в текстовый файл '******************************* Dim FileName As String Dim Str, Str2 As String Str = Text1.Text 'Открытие файла и запись информации из Str в файл FileName = "C:proba.txt" Open FileName For Output As 1 Print #1, Str Close 1'******************************* ' Чтение текстового файла '******************************* Open FileName For Input As 1 Str2 = Input(LOF(1), 1) Text2.Text = Str Close 1