求助 驱动器控件与文件夹控件 关联的代码
求助 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

[解决办法]

引用:

谢谢老师！
挂在 Dim fso As New FileSystemObject 这句上了，
提示“用户定义类型未定义” ？ 继续求救

不是已经告诉你要“引用 microsoft scripting runtime”了吗？