Foro de programacion

pues creo q estreno yo esto...
Hola a todos de ante mano, bueno mi duda es la siguiente:
Estoy utilizando un Drivelistbox y un Dirlistbox y utilzo el siguiente codigo para pasar los datos de la unidad seleccionada:

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

El problema que tengo es que cuando en el Drive me cambio al Cd-Rom y no tengo ningun disco dentro de la unidad me manda un error, como puedo evitar este y mandarle un mensaje de error para que sepa que no hay ningun Cd-Rom dentro de la unidad sin que me saque del sistema.

Muchas Gracias

Una solucion que yo veo es la siguiente:

Private Sub Drive1_Change()
On Error Resume Next
Dir1.Path = Drive1.Drive
If Err Then
[Sentencias si hay error]
Else
[Sentencias si no hay error]
End If
End Sub

De todos modos mira en la ayuda lo del ON ERROR
si tienes mas problemas, ayuda aqui,

saludos.