写DriveBox的双击事件就可以了在里面获取DriveBox选择的项
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive '设置目录路径。
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path '设置文件路径。
End Sub
Private Sub File1_DblClick()
MsgBox Dir1.Path & File1.FileName
End Sub