Элемент управления CommonDialog. При открытии файла необходимо задать его полное имя

При открытии файла необходимо задать его полное имя.

pathfile = "C:\WINDOWS\Рабочий стол\primer\primer.txt"

или

pathfile = App.Path &”\primer.txt"

App.Path – это адрес папки проекта.

Для вызова стандартного диалогового окна Windows открытия файла на запись или чтение в VB используется специальный элемент управления CommonDialog. Если такого объекта нет на панели ToolBox, то его можно подключить с помощью компоненты Microsoft Common Dialog Control 6.0.

Методы объекта:

ShowOpen – открывает диалоговое окно загрузки файла с диска;

ShowSave – открывает диалоговое окно сохранения файла на диске.

Свойства объекта:

CancelError – если пользователь закрыл окно, нажав кнопку Отмена, имеет значение True;

DialogTitle – заголовок диалогового окна. По умолчанию –«Открыть»;

FileName –имя файла, которое появляется в поле Имя файла;

Filter – фильтр, используемый для ограничения списка видимых файлов;

FilterIndex – определяет номер файла, используемый по умолчанию;

Flags – значение, которое позволяет использовать в диалоговом окне дополнительные возможности.

Итак, диалоговое окно открытия файлов предоставляет пользователю механизм определения имени открываемого файла.

Пример на открытие файла с помощью окна диалога:

Private Sub Command2_Click()

CommonDialog1.ShowOpen ‘ применения метода для отображения окна на экране

pathfile = CommonDialog1.FileName ‘запомнить имя выбранного файла в переменной

Open pathfile For Input As #1 'открытие файла на чтение

Do While Not EOF(1) 'организация цикла на чтение файла до конца

Line Input #1, strfile 'построчное чтение записей из файла в переменную

Text1.Text = Text1.Text + strfile + Chr(13) + Chr(10) 'формирование очередной строки TextBox

Loop

Close #1

End Sub