Comprobar si existe disco en la disquetera - VB-MUNDO

Aldeanete · #1 (**permalink**) 29-04-2005, 11:08:41

Hola, aquí está de nuevo el paleto este.
A ver si alguien me hace el inmenso favor de decirme cómo puedo comprobar, por programa, si existe disco en una unidad (la "E" del CD-Rom, por ejemplo).
Gracias!

angelescj · #2 (**permalink**) 29-04-2005, 14:04:19

Cuando se intenta acceder a una unidad que no está disponible se produce un error interceptable, el 71, así que con capturarlo está:

On Error goto mensaje

'Aquí las líneas de código que acceden a la unidad

Exit sub/functon

mensaje:
if err.number=71 then
msgbox "no hay disco en la unidad"
else
msbox "Error desconicido"
endif

Está escrito "al vuelo" así que perdona los posibles errores de sintaxis.

:smt004