Vbs - detecter, ouvrir, fermer les lecteurs de cd

Soyez le premier à donner votre avis sur cette source.

Snippet vu 20 063 fois - Téléchargée 30 fois

Commenter

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
Yoda_XP Messages postés 21 Date d'inscription mardi 14 juin 2005 Statut Membre Dernière intervention 28 mars 2006
5 sept. 2005 à 17:42
toujours utile.
us_30 Messages postés 2065 Date d'inscription lundi 11 avril 2005 Statut Membre Dernière intervention 14 mars 2016 10
3 sept. 2005 à 22:46
C'est pourtant très bien de l'avoir mis. Merci... et 10/10.

Us.
S'inscrire maintenant

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.

Du même auteur (Zlub)