Измените свойство Caption формы Cdir на «Проводник»
Создайте в форме элементы управления DriveListBox и DirListBox. Нам подходят все значения свойств этих элементов, установленные по умолчанию.
Создайте элемент FileListBox. Измените его свойство Pattern на «*.*», это позволит отображать в списке все файлы. Можно ввести любую маску, в зависимости от того, какие файлы необходимо включить в список. Свойства ReadOnly, Archive, Hidden и System определяют показывать или нет в списке файлы с соответствующим атрибутом. Поставьте свойству ReadOnly значение True.
Разместите созданные элементы в соответствии с рис. 25.
Щёлкните два раза на списке дисков. В открывшемся окне появится шаблон процедуры. Приведите код в соответствие с нижеследующим:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
При выборе какого-либо диска из списка, вызывается приведённая процедура. В ней значение свойства Drive списка дисков, содержащее имя выбранного диска, записывается в свойство Path списка директорий Dir1, которое определяет, директории какого диска будут отображаться в списке.
Далее введите следующий код:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Этот код выполняется при выборе какого-либо директория из списка Dir1. Он записывает значение свойства Path списка директорий, содержащее путь выбранной директории, в аналогичное свойство списка файлов File1 определяя тем самым, файлы из какой директории будут отображаться в списке.
