Компонент Microsoft Common Dialog Control 6.0

С помощью этого компонента можно вызывать окно открытия файлов, сохранения, выбора цвета... Для начала подключи его(если забыл то посмотри в шаге 34). На форму кинь текстовое поле, 3 кнопки, и CommonDialog(назови его CD1). Начнем мы с открытия файлов.
1. Открытие файлов:
Сделай свойство Caption у Первой кнопки = "Открыть". Вот сейчас мы программу сделаем, у которой выбранный файл в Окне Открытия файлов записывался в текстовое поле. Код:

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
Text1.Text = CD1.FileName ' Свойство FileName нужно для того чтоб узнать какой файл был выбран
End Sub

Свойства:
1. InitDir - это свойство определяет папку, которая будет при открытии Окна выбора файлов первой. Короче сделай свойство InitDir = A:\, и тогда при запуске окна выбора файлов первый будет диск Aможно написать c:\games - тогда первый будет папка Games)
2. DialogTitle - это свойство определяет заголовок окна(например у окна выбора файлов заголовок по умолчанию - "Открыть"
4. FilterName это свойство указывает начальные значения текстового поля(Имя Файла). Например если туды вписать Базик, то при запуске окна в поле Имя файла будет вписанно Базик
5. Filter - Это что - то типа фильтра, т.е. здесь можно указать чтоб можно было выбирать только текстовые файлы, или exeшники... Например можно написать так:

Private Sub Command1_Click()
CD1.ShowOpen ' Вызываем окно открытия файлов
End Sub

Private Sub Form_Load()
CD1.Filter = "Ворд|*.doc|Текстовые|*.txt|Приложения|*.exe|Все файла|*.*|" ' Даем право выбора юзеру
End Sub
Работа с файлами. Введение:

В этом разделе я расскажу о файлах, верней не о них, а как с ними работать, т.е. открывать, изменять, кидать...
Для открытия файлов(НЕ ЗАПУСКА!!!) есть функция open:

open "имя файла" for режим as номер канала
Функции для работы с файлами
Close Номер св. канала

Имя файла - полный путь к файлу(если файл находится в той же папке где и сама программа, то можно написать просто имя файла(например, 1.txt))
Режим - режим открытия файла, есть около 7 режимов, но в этом шаге мы рассмотрим только 3 основных:
1. Input - служит для чтения данных из файла, если файла не существует, то происходит ошибка
2. Append - файл открывается(НЕ ДЛЯ ЧТЕНИЯ!!!) для записи, если файла не существует, то он создается. Если в файле уже есть какие либо данные, то запись идет в конец этих данных.
3. Output - файл открывается(НЕ ДЛЯ ЧТЕНИЯ!!!) для записи, если файла не существует, то он создается. Все данные которые были в файле стираются, и запись идет в "чистый файл"
Номер канала - это номер канала открываемого файла, если номер открываемого файла уже открыт, то происходит ошибка
Запись:
Для записи текста служит функция Print(и Write)
Open "c:\1.txt" For Append As #1 'Открываем файл для добавления записи, с номером канала 1
Print #1, "Твой ТЕКСТ"' Записываем в файл 1.txt текст
Close #1 'Закрываем файл

Есть еще функция для определения свободного канала - FreeFile. Например:
f = FreeFile 'Возвращает номер свободного канала
Open "c:\1.txt" For Append As f 'Открываем файл для добавления записи
Print #f, "Твой ТЕКСТ"'Записываем в файл 1.txt текст
Close #f 'Закрываем файл

Чтение:
Считать данные из файла сложнее чем записать. Есть два способа чтения данных из файла. Первый:

f = FreeFile
Open "c:\1.txt" For Input As f' Открываем файл 1.txt для чтения
Text1.Text = Input(LOF(f), f) 'Считываем текст из открытого файла в текстовое поле(Оператор LOF(Len Of File) определяет длину файла)
Close f

Второй:

Dim txt as String

Open "c:\1.txt" For Input As #1' Открываем файл 1.txt для чтения
Do While Not EOF(1) ' Функция EOF(End Of File) проверяет, достигнут ли конец файла
Line Input #1, txt ' Читаем строку данных
Text1.Text = txt
Loop
Close #1

Для записи текста служит функция Print(и Write)
Open "c:\1.txt" For Append As #1 'Открываем файл для добавления записи, с номером канала 1
Print #1, "Твой ТЕКСТ"' Записываем в файл 1.txt текст
Close #1 'Закрываем файл

Private Sub 2_Click()
CommonDialog1.ShowSave
Dim MyFile
    MyFile = FreeFile
        Open CommonDialog1.FileName For Output As #MyFile
            Print #MyFile, "Text"
    Close #MyFile
End Sub