OUVRIR LES LECTEURS CD-ROM ET GRAVEUR
bob3000
Messages postés
406
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
2 octobre 2004
-
14 sept. 2003 à 23:27
cs_ben10 Messages postés 9 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 17 juillet 2007 - 17 juil. 2007 à 10:30
cs_ben10 Messages postés 9 Date d'inscription vendredi 23 février 2007 Statut Membre Dernière intervention 17 juillet 2007 - 17 juil. 2007 à 10:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/16395-ouvrir-les-lecteurs-cd-rom-et-graveur
https://codes-sources.commentcamarche.net/source/16395-ouvrir-les-lecteurs-cd-rom-et-graveur
14 sept. 2003 à 23:27
15 sept. 2003 à 09:26
Sinon bien pensé mais il te manque un coat après Next ' cdrom
Voilà @+
15 sept. 2003 à 14:23
sinon c cool
15 sept. 2003 à 20:15
15 sept. 2003 à 20:26
Set oWMP = CreateObject("WMPlayer.OCX.7" )
-- Appel de Windows Media Player
Set colCDROMs = oWMP.cdromCollection
-- On lui demande le nb de lecteurs CD installés
if colCDROMs.Count >= 1 then
-- S'il y en a au moins un
For i = 0 to colCDROMs.Count - 1
-- On crée une boucle...
colCDROMs.Item(i).Eject
-- qui ejecte le CD en question.
Next ' cdrom
End If
Voilà !