How can I exam if there is CD in CDROM
I have examed in this way:

On Error Goto NOCD
...............
Dir "E:\aaa.aaa"
Msgbox "CD In CDROM"
Exit Sub
NOCD:
Msgbox "No CD In CDROM"
Exit Sub

But if the fuction is to long,I don't thibk it can work well.
How can I exam it in a "normal" way? API?