ejecter un cd par vb6 Fermé

Question

bonjour,
SVP je cherche un tetoriel detailler sur la maniere d'ejection d'un lecteur cd par une appliction vb.(vb6) merci d'avance

Configuration: Windows XP / Firefox 2.0.0.20

$levin · Answer

Bonsoir,


    *  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

rabelka · Answer

bonsoir ,
ca me donne une erreur "owmp variable non definie" quoi faire .merci d'avance

$levin · Answer

et 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


Uniquement sous XP,mais comme tu es sous XP,np ;-)

rabelka · Answer

ca marche pas aussi faut -t-il que j'ajoute quelque chose dans projet-->referance

Polux31 · Answer

Bonjour, 

Voilà un exemple de procédure: 

Private Sub ejecter_Click() 
Dim variable As Variant 
Dim oWMP As Object 
Dim colCD 

    Set oWMP = CreateObject("WMPlayer.OCX.7") 
    Set colCD = oWMP.cdromCollection 
    colCD.Item(0).Eject 

End Sub

Il n'y a pas de référence à cocher. 

;o) 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.»  
Nicolas Boileau

rabelka · Answer

bonjour.
dsl mais ca m'envoi des erreur de compilation:

erreur d'exucution '-2147467259(8004005)':
erreur automation
erreur non specifiée
peut tu m'aider a trouver ou est le problemme

rabelka · Answer

oui je travail avec vb6 et j'ai deux lecteur en faite.je vais essayer avec un autre ordinateur qui contient un lecteur et je te repond ok.merci

rabelka · Answer

bonsoir,
le code ca marche bien,mais seulement dans la machine ou vb est instaler.j'ai cree un executable mais lorsque je l'execute dans une machine ou le vb n'est pas installee il m'envois une erreur"the language dll'vb6fr.dll'could not be found"
pouriez vous m'aider?merci

rabelka · Answer

ok merci beaucoup pour ton aide je vais essayer avec l'empaquetage.et si je rencontre des problemme je vous derongerai encore.

Ejecter un cd par vb6

9 réponses

Discussions similaires