OUVRIR ET FERMER UN LECTEUR CD-ROM

matmat - 30 mars 2001 à 14:07
jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 - 13 juin 2008 à 11:59
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/43-ouvrir-et-fermer-un-lecteur-cd-rom

jihednond Messages postés 143 Date d'inscription jeudi 27 mars 2008 Statut Membre Dernière intervention 3 septembre 2011 1
13 juin 2008 à 11:59
merci ce code fonctionne 100% mes tu doit ajouter

Private Sub Command1_Click()
Call OuvrirCD
End Sub
Private Sub Command1_Click()
Call FermerCD
End Sub
pour que les débutant puisse l'appliquer
djgab21 Messages postés 66 Date d'inscription vendredi 15 juin 2007 Statut Membre Dernière intervention 19 mai 2011
4 janv. 2008 à 13:36
Super la source NIX

réponse a Lunnatick : en vbs c'est

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
Next ' cdrom
End If

(désolé je suis un peu tard)
lunnatick Messages postés 175 Date d'inscription lundi 9 mai 2005 Statut Membre Dernière intervention 28 octobre 2013
10 août 2006 à 03:03
Bonjour, c'est su VBS ?
grosbidou21 Messages postés 74 Date d'inscription mardi 3 février 2004 Statut Membre Dernière intervention 5 février 2010 2
28 oct. 2004 à 17:56
le module mciSendString doit être déclaré en "public" et non en "private" si tu veux le placer dans un module.
Comme bcp de tes source, elle est simple, claire et très utile. Que demander de mieu?
SuperClic Messages postés 48 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 3 octobre 2002
20 août 2002 à 17:42
Pour éjecter spécifiquement plusieurs lecteurs, allez voir ma source: "http://www.vbfrance.com/article.aspx?Val=5526"
SuperClic Messages postés 48 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 3 octobre 2002
19 août 2002 à 10:17
Trop bien, ta source, Nix !
leneuf22 Messages postés 156 Date d'inscription samedi 12 janvier 2002 Statut Membre Dernière intervention 4 mars 2003 1
20 juil. 2002 à 12:41
Mat, "mais n'oubliez pas de déclarer la variable ret en Integer"
Pourquoi ? Le résultat est un long.

VB devra caster dans ton dos si ta variable est integer.
Regiga Messages postés 17 Date d'inscription mardi 22 janvier 2002 Statut Membre Dernière intervention 13 octobre 2003
12 mars 2002 à 09:20
C vrai. G un graveur et un CD. Comment qu'on fait ?
Sinon, C trop bien
CA marche pas ton truc !!!
Et comment on fait qd on a plusieurs lecteurs et qu'on veut en ejecter specifiquement ?
super l'astuce!
mais n'oubliez pas de déclarer la variable ret en Integer
Rejoignez-nous