'******************************

'    Чтение бинарного файла                                         

'******************************



'Назначаем дескриптор файла

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