OUVRIR ET FERMER UN LECTEUR CD-ROM

- - Dernière réponse : jihednond
Messages postés
144
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

Afficher la suite 
super l'astuce!
mais n'oubliez pas de déclarer la variable ret en Integer
Et comment on fait qd on a plusieurs lecteurs et qu'on veut en ejecter specifiquement ?
CA marche pas ton truc !!!
Regiga
Messages postés
17
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
13 octobre 2003
-
C vrai. G un graveur et un CD. Comment qu'on fait ?
Sinon, C trop bien
leneuf22
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
-
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.
SuperClic
Messages postés
48
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
3 octobre 2002
-
Trop bien, ta source, Nix !
SuperClic
Messages postés
48
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
3 octobre 2002
-
Pour éjecter spécifiquement plusieurs lecteurs, allez voir ma source: "http://www.vbfrance.com/article.aspx?Val=5526"
grosbidou21
Messages postés
74
Date d'inscription
mardi 3 février 2004
Statut
Membre
Dernière intervention
5 février 2010
1 -
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?
lunnatick
Messages postés
175
Date d'inscription
lundi 9 mai 2005
Statut
Membre
Dernière intervention
28 octobre 2013
-
Bonjour, c'est su VBS ?
djgab21
Messages postés
66
Date d'inscription
vendredi 15 juin 2007
Statut
Membre
Dernière intervention
19 mai 2011
-
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)
jihednond
Messages postés
144
Date d'inscription
jeudi 27 mars 2008
Statut
Membre
Dernière intervention
3 septembre 2011
-
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