ouvrir son lecteur de CD

dim reponse

reponse = oui or non

reponse = inputbox ("Veux-tu ouvrir ton lecteur CD ?" _
+chr(13)_
+"Oui ou non ?")

If (reponse = "oui") then

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
End If
End If

If (reponse = "non") then

End if