File System Controls - how to synchronize

'use the 3 intrinsic list boxes:   DriveListBox, DirListBox, FileListBox

'=============
'DriveListBox code - Change Event
Private Sub  Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

'=============
'DirListBox code - Change Event
Private Sub  Dir1_Change()
File1.Path = Dir1.Path
End Sub