File system controls:

Sub Drive1_change()
    Dir1.Path = Drive1.Drive
End Sub

Sub Dir1_change()
    File1.Path = Dir1.Path
End Sub