Vbs - detecter, ouvrir, fermer les lecteurs de cd

Soyez le premier à donner votre avis sur cette source.

Snippet vu 18 691 fois - Téléchargée 28 fois

Contenu du snippet

Voici un code VBScript pour detecter les lecteurs de CD, les Ouvrir et les refermer.

Je poste ce code, qui n'a rien de révolutionnnaire, suite à des questions sur le forum, pour que ça puisse aider d'autre personne.

Source / Exemple :


Dim ts
  Dim strDriveLetter
  Dim intDriveLetter
  Dim fs  'As Scripting.FileSystemObject
  Const CDROM = 4
  On Error Resume Next
  Set fs = CreateObject("Scripting.FileSystemObject")
  
  ' Detection des lecteurs de CD
  strDriveLetter = ""
  For intDriveLetter = Asc("A") To Asc("Z")
    Err.Clear
    If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
      If Err.Number = 0 Then
        strDriveLetter = Chr(intDriveLetter)
        Exit For
      End If
    End If
  Next
  
  ' Ouvrir tous les lecteurs
  MsgBox "Ton lecteur premier CD : " & strDriveLetter, vbOKOnly + 48, "CDROM=> " & strDriveLetter
  Set owmp = CreateObject("WMPlayer.OCX.7")
  Set colCDROMs = owmp.cdromCollection
  For d = 0 To colCDROMs.Count - 1
    colCDROMs.Item(d).Eject
  Next 
  
  ' Fermer tous les lecteurs que l'on vient d'ouvrir
  A1 = MsgBox("Appuyer sur une touche pour fermer les lecteurs " & strDriveLetter, 0 + 64, "Infos")
  For d = 0 to colCDROMs.Count  -1
    colCDROMs.Item(d).Eject
  Next

  Set owmp = Nothing
  Set colCDROMs = Nothing
  wscript.quit

A voir également

Ajouter un commentaire

Commentaires

us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7 -
C'est pourtant très bien de l'avoir mis. Merci... et 10/10.

Us.
Yoda_XP
Messages postés
21
Date d'inscription
mardi 14 juin 2005
Statut
Membre
Dernière intervention
28 mars 2006
-
toujours utile.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.