..... continuo

se però non puoi prevedere la lettera del lettore, e non hai voglia di fare una ricerca/verifica sul tipo di drive per scovare la presenza di lettori, fai cosi:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim ret_value As Long

' questo apre il cassetto
retvalue = mciSendString("set CDAudio door open", returnstring, 127, 0)

' questo lo chiude
retvalue = mciSendString("set CDAudio door closed", returnstring, 127, 0)


NOTA
***************************
funziona solo con il primo drive CD-Rom trovato
es. se hai il lettore D: e il masterizzatore E:
questo esempio funziona solo col primo (D
per la scelòta del drive devi usare il primo esempio
che ti ho spedito.
**************************

fammi sapere!!
Ciao!