OUVRE LE GRAVEUR
cs_Apachefr
Messages postés
16
Date d'inscription
jeudi 1 juillet 2004
Statut
Membre
Dernière intervention
25 septembre 2007
-
6 nov. 2004 à 19:40
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 - 29 janv. 2005 à 22:44
cs_algori Messages postés 868 Date d'inscription dimanche 26 décembre 2004 Statut Membre Dernière intervention 26 février 2008 - 29 janv. 2005 à 22:44
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/27393-ouvre-le-graveur
https://codes-sources.commentcamarche.net/source/27393-ouvre-le-graveur
29 janv. 2005 à 22:44
colCDROMs.Item(0).Eject ou
colCDROMs.Item(1).Eject
Mais c'est spécifique à un ordi.
@++
8 nov. 2004 à 18:26
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
IL SERT À QUOI LE FOR??? À ÉJECTER TOUT LES LECTEURS. C'est pour ça que tout ce fait éjecter. Si réellement tu veux éjecter les graveurs, tu pourrais vérifier le nom du lecteur et regarder si il y a CDRW ou DVDRW dedans.
Code mal propre:
Variables non déclarées (Dim ...) et non vidées (Set var = nothing)
Pas de gestion d'erreur. Utilise un On Error Resume Next et après la création de l'objet, regarde s'il y a erreur. Si oui, fait ce qu'il faut puis Err.Clear
6 nov. 2004 à 23:52
Utiliser le media player quand un simple appel mciSendString() aurait suffi, un code a eviter.
6 nov. 2004 à 23:21
6 nov. 2004 à 19:51
Et pour les non-possesseurs de windows media ?
6 nov. 2004 à 19:42
simple curiosité, cest bien Windows media player que tu utilises pour faire le travail ?
6 nov. 2004 à 19:40