Работа с дисками и папками

На панели инструментов окна Visual Basic есть три объекта, с помощью которых можно осуществлять просмотр существующих на диске папок и выбрать нужные файлы для последующей работы с ними.

Это объекты DriveListBox (список дисков), DirListBox (список папок) и FileListBox (список файлов). При размещении экземпляров этих объектов на форму им будут присвоены имена соответственно Drive1, Dir1 иFile1.

Основным свойством объекта Drive1 является свойство Drive– имя выбранного диска из числа доступных в данный момент. Присвоение значения этому свойству происходит после выбора нужного имени из списка дисков (событие Change).

У объекта Dir1основным свойством является Path – после выбора из списка папок (событие Change) там сохраняется имя выбранной папки или список вложенных папок, разделенных слэшом (обратной косой чертой).

Объект File1на форме представлен в виде текстового окна со списком файлов текущей папки. При выборе из этого списка нужного имени с помощью мыши (событие Click) свойству FileName присваивается имя выбранного файла с указанием пути к текущей папки. Для того, чтобы связать список файлов с выбранной папкой, используется свойство Path.

В качестве примера на рис.23 приведен текст трех процедур, которые запускаются при наступлении указанных событий. В результате работы программы выбранный текстовой файл открывается, считывается и текст выводится в текстовое окно.

Private Sub Drive1_Change() ' после выбора нужного диска из списка

Dir1.Path = Drive1.Drive ' его имя передается свойству Dir1.Path

ChDir Dir1.Path ‘ и выполняется команда “сменить директорию”

End Sub

Private Sub Dir1_Change() ' после выбора нужной папки из списка

File1.Path = Dir1.Path ' путь к этой папке передается свойству File1.Path

End Sub

Private Sub File1_Click() ' после выбора нужного файла

File_name = Dir1.Path + "\" + File1.FileName ‘ переменной File_name присваивается

' имя файла и добавляется путь к нему

Open File_name For Input As #1 ’ файл открывается для чтения

ST = "" ' в переменную ST построчно

Do Until EOF(1) ' считываются записи из файла

Input #1, S ' и добавляются управляющие коды

ST = ST + S + Chr(13) + Chr(10) ' <13>, <10>

Loop ‘ файл закрывается

Close #1 ' значение переменной ST выводится

Text2.Text = STT ‘ в окно Text2

End Sub

Рис.23. Пример использования объектов DriveListBox, DirListBox и FileListBox

Примечание. Для объекта Text2 необходимо на этапе создания экранной формы задать свойство Text2.Multiline = True. Это необходимо для того, чтобы в текстовое окно можно было вывести несколько строк.

Еще одну возможность выбора папки и файла из списка имеющихся на диске дает использование объектаCommonDialog. Этот объект отсутствует изначально на панели инструментов. Для того, чтобы его туда поместить, необходимо в основном меню выбрать пункт Project в развернувшемся меню выбрать опцию Components…, в появившемся окне (рис.24) отметить пункт Microsoft Common Dialog Control.

Рис. 24. Окно выбора компонентов

В результате в панель инструментов будет добавлена пиктограмма объекта CommonDialog. У этого объекта есть ряд методов, используя которые можно открывать диалоговые окна для выбора файла (методShowOpen); для сохранении файла на диске (метод ShowSave); для выбора цвета из палитры (метод ShowColor); для выбора имени шрифта, его размер и стиля (метод ShowFont).

Если поместить объект CommonDialog на форму, ему будет присвоено имяCommonDialog1. Для того чтобы в чтобы организовать режим выбора нужного файла из диалогового окна Open в соответствующей процедуре достаточно написать строку