Basic - ¿cómo detecto si estoy enel cd-rom?

¿Cómo detectar mediante qbasic cuando No estoy enuna unidad lógica del =dd=?
o quizás mi pregunta sería:
¿cómo detecto las letras asignadas a unidades como cd-rom, dvd, etc para deeste modo saber en dónde puedo abrir archivo yen cuáles no?

como desde qbasic no podemos saber propiedades de las unidades, tenemos que apañarnoslas con trucos.

para saber si la unidad en la que vas a trabajar es de solo lectura (CD, etc.) puedes activar el control de errores del qbasic he intentar crear un archivo, si no salta el error la unidad es de lectura/escritura si no pues ya lo sabes.

ON ERROR GOTO escd
fichero$=unidad$+"test"
OPEN fichero$ FOR OUTPUT AS #1
CLOSE #1
KILL fichero$

escd:
if err>0 then
PRINT "La unidad selecionada es una birria, no se pue escribi"
end if
ON ERROR GOTO 0