Работа с текстовыми файлами в Visual Basic.
    Совсем недавно в непомню какой коференции я видел запись какого-то человека, который просил, чтобы хоть кто-нибудь объяснил ему элементарную работу с файлами... Казалось бы такое простое... Но это простое для тех, кто уже хоть немного продвинулся в программировании, а кто это только начал? Это же, действительно, непроходимый лес! И я сильно сомневаюсь, чтобы кто-нибудь из других наших Web-мастеров когда-нибудь уделит этому хоть какое-то внимание. Поэтому этим займусь я и попробую в этой статье показать только основы. 1. Открытие файла для чтения информации из него.
    Итак, чтобы безпроблемно работать с текстовыми файлами сначала их нужно открыть. Делается это с помощью оператора Open, например:
    Open "c:\text.txt" For Input As #1
    Обратите внимание на режим открытия файла - Input (для чтения). Здесь файл text.txt открывается для считывания под номером 1. Внимание!!! Номер файла - обязательный параметр, и вводить его нужно всегда! Если ваша программа будет иметь дело не с одним десятком открытых файлов, то уследить за их нумерацией будет сложновато. Используйте для этого функцию FreeFile. Она возвращает ещё не занятый номер (от 1 до 511) для файла:
    Dim FileNum As Integer
    FileNum = FreeFile
    Open "c:\text.txt" For Input As FileNum
    Так, файл открыли! Теперь из него нужно что-нибудь считать. Оператор Line Input считывает из открытого файла по одной строке при каждом вызове. Поэтому для считывания из файла нужно построить цикл, который бы вызывал этот оператор до тех пор, пока не дошёл бы до конца файла:
    цикл выполняется, пока конец файла не достигнут
    Do Until EOF(FileNum)
    при каждом вызове оператора Line Input он записывает в
    переменную новою строку
    Line Input #FileNum, переменная
    Loop
    Закрыть открытый файл можно оператором Close #FileNum. А теперь вот как это должно выглядеть в практике:
    Dim FileNum As Integer
    Dim txt As String
    Dim alltxt As String
    FileNum = FreeFile
    открываем файл в режиме чтения
    Open "c:\text.txt" For Input As FileNum
    запускаем вышеупомянутый цикл
    Do Until EOF(FileNum)
    считываем строку из файла с номером FileNum и кладём её в
    переменную txt
    Line Input #FileNum, txt
    теперь к переменной alltxt добавляем содержимое переменной txt -
    строки и vb-константу vbCrLf (Chr(13)+Chr(10)), т.к. каждая строка
    должна быть с новой строки :-)
    alltxt = alltxt + txt + vbCrLf
    Loop
    закрываем файл с номером FileNum
    Close #FileNum
    выводим содержимое переменной alltext
    MsgBox alltxt 2. Открытие файла для записи информации в него.
    Записать информацию в файл ещё проще!!! Эта операция отличается от предыдущей только тем, что открыть файл надо в режиме записи:
    Open "c:\text.txt" For Output As FileNum
    и вместо цикла нужно вставить оператор Print #, который записывает в файл содержимое переменной:
    Print #FileNum, "Азбука Visual Basic"
    или
    Print #FileNum, alltext
    Пример:
    Dim FileNum As Integer
    Dim txt As String
    FileNum = FreeFile
    txt = "http://members.tripod.de/cmvb"
    открываем файл в режиме записи
    Open "c:\text.txt" For Output As FileNum
    Print #FileNum, txt
    закрываем файл с номером FileNum
    Close #FileNum
    Проверьте содержимое файла. ............