VB问题：关于DriveListBox的疑问！

Question

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
假设现在我的电脑里硬盘是C、D、E， F是光驱，当我运行这个VB 6.0程序的时候，在驱动器列表中选择F盘时，就会弹出：Device unavailable，那这个问题该怎样解决，可不可以这样：当我选择F的时候就弹出对话框：你的光驱里头没有东西！

请问高手，这该如何实现？

Answer 1

Private Sub Drive1_Change()
On Error GoTo strs
Dir1.Path = Drive1.Drive
Exit Sub
strs:
MsgBox "没有东西"
End Sub

Answer 2

这就涉及到一个出错处理，我没有尝试过，相信上面那位的答案是正确的