Программа операции с файлами. Простые процедуры, которые могут быть полезны начинающим.

'******************************
'    Чтение бинарного файла                                         
'******************************'Назначаем дескриптор файла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