Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Code VBS pour Ouvrir le tiroir d'un lecteur de CD

152 views
Skip to first unread message

PhilZig

unread,
Oct 31, 2003, 1:36:47 AM10/31/03
to
Salut à tous
Sous Windows WP Pro
pouvez vous m'adresser le code d'un fichier .vbs pour éjecter ou ouvrir le
tiroir d'un lecteur de CD ou d'un graveur ?
Merci


scraper

unread,
Oct 31, 2003, 4:29:03 AM10/31/03
to
Dans son post news:bnsvus$9fl$1...@news.tiscali.fr,

PhilZig a absolument tenu à nous dire :

salut !

j'avais commis ça il y a quelque temps .... sois indulgent, j'ai très peu de scripting derrière moi !

si tu as win media player 7 ou supérieur installé (avec XP, t'as au moins le 8 ?)

ça devrait le faire

ce script recherche la collection de CD rom sur ta bécane, et pour chacun d'entre eux, crée un script qui te permettra d'ouvrir le
tiroir ...

--

scraper

ChooseOpenCD.txt

PhilZig

unread,
Nov 1, 2003, 2:37:54 AM11/1/03
to
Merci à scraper, ça marche
A+
Philzig34


Gilles RONSIN

unread,
Oct 31, 2003, 2:00:56 PM10/31/03
to
"PhilZig" <no_spam_phi...@libertysurf.fr>, le ven. 31 oct. 2003
07:36:47, écrivait ceci:

> Salut à tous
Salut

> Sous Windows WP Pro
> pouvez vous m'adresser le code d'un fichier .vbs pour éjecter ou
> ouvrir le tiroir d'un lecteur de CD ou d'un graveur ?

Marche sur tous les Windows français

---eject.vbs-------------------
set shell=CreateObject("Shell.Application")
'Set Lecteur=ScanFolder(17, "(H:)") 'remplacer par votre lettre de
lecteur
'Lecteur.invokeVerb("Éje&cter")
Set Lecteur=ScanFolder(17, "(E:)") 'remplacer par votre lettre de
lecteur
Lecteur.invokeVerb("Éje&cter")

Function ScanFolder(vDir, Element)
set folder = Shell.NameSpace(vDir)
For i = 0 to Folder.Items.Count-1
If Instr(lcase(folder.items.item(i)),lcase(Element))>0 then
Set ScanFolder=folder.items.item(i)
exit for
End If
Next
If Not ISObject(Scanfolder) Then
Wscript.Quit
End IF
End Function
--------------------------------------


--
Embryon de site : http://gilles.ronsin.free.fr Nouveau: un JukeBox pour
DaemonTool
Mon utilitaire de BDR V1.1.0 : http://gilles.ronsin.free.fr/aregtool.htm
Les gens qui ne rient jamais, ne sont pas des gens sérieux.

0 new messages