驱动器控件与文件夹控件 关联的代码

求助 驱动器控件与文件夹控件 关联的代码
求助 VB 驱动器控件选项改变时 文件夹控件的显示随之改变的代码？谢谢！
[解决办法]

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

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

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

Private Sub Drive1_Change()
'    引用 microsoft scripting runtime
    Dim fso As New FileSystemObject
    If fso.GetDrive(Drive1.Drive).IsReady Then
        Dir1.Path = Drive1.Drive
    Else
        MsgBox Drive1.Drive & "没准备好"
    End If
    Set fso = Nothing
End Sub