Visual Basic - Detectar si existe un Cd-rom

Life is soft - evento anual de software empresarial
 
Vista:

Detectar si existe un Cd-rom

Publicado por Darinel (8 intervenciones) el 30/03/2005 08:37:40
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Detectar si existe un Cd-rom

Publicado por Kramxel (2 intervenciones) el 30/03/2005 11:06:29
Una solucion que yo veo es la siguiente:

1
2
3
4
5
6
7
8
9
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Detectar si existe un Cd-rom

Publicado por Darinel (8 intervenciones) el 02/04/2005 08:01:09
Gracias por tu ayuda me te estoy muy agradecido
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar