第1个回答 2022-10-07
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
解析:
添加工具箱中的drivelistbox,dirlistbox和filelistbox控件,并写以下代码
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive ' 当驱动器改变时,设置目录路径.
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path ' 当目录改变时,设置文件路径.
End Sub