·vb怎么加驱动器目录框 目录列表 文件列表框等控件啊 十万火急！！！

添加工具箱中的drivelistbox，dirlistbox和filelistbox控件，并写以下代码

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive ' 当驱动器改变时，设置目录路径.

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path ' 当目录改变时，设置文件路径.

End Sub