Проблема с совмещением!

[Ayaz]

Послуште ребята, помогите мне на счёт одного дела. Я прикрепляю DirBox, FileListBox и т. д. Но я не могу их связать. Не получается. Они работают независимо. Я новечок но ужу некоторых успехов с помощи вашего сата добился. Так подталкните меня вперёд.

[Urvin]

Без тебя они никогда не станут работать вместе.
Между DirList и FileList связь такая filFile.Path = dirDir.Path
далее... - DriveList
DirDir.drive = drvDrive.Drive
-Filters & Files
filFile.Pattern = cboFilter.text 'Там всякие *.txt *.*

[GoGosha]

Код: Выделить всё

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub