Ejecter un cd par vb6
rabelka
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
rabelka Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
rabelka Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
bonjour,
SVP je cherche un tetoriel detailler sur la maniere d'ejection d'un lecteur cd par une appliction vb.(vb6) merci d'avance
SVP je cherche un tetoriel detailler sur la maniere d'ejection d'un lecteur cd par une appliction vb.(vb6) merci d'avance
A voir également:
- Ejecter un cd par vb6
- Vb6 - Télécharger - Divers Utilitaires
- Cd burner - Télécharger - Gravure
- Hiren's boot cd - Télécharger - Divers Utilitaires
- Clone cd - Télécharger - Gravure
- Hiren's BootCD - Télécharger - Divers Utilitaires
9 réponses
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
* 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
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 ;-)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour,
Voilà un exemple de procédure:
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
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
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
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
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
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
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
Bonjour,
Il faut télécharger le Runtime VB6 (https://www.commentcamarche.net/s/Runtime+VB6 et l'installer sur la machine qui n'a pas VB6.
Sinon, tu as la solution de créer une installation avec l'empaquetage (voir dans Compléments de VB6 > "Empaquetage et déploiement..." ). Il existe d'autres outils comme Inno Setup (https://www.commentcamarche.net/telecharger/developpement/12385-inno-setup/ Dans les 2 cas, la DLL est incluse dans le setup d'installation de ton programme.
A toi de voir la solution qui te convient le mieux.
;o)
Il faut télécharger le Runtime VB6 (https://www.commentcamarche.net/s/Runtime+VB6 et l'installer sur la machine qui n'a pas VB6.
Sinon, tu as la solution de créer une installation avec l'empaquetage (voir dans Compléments de VB6 > "Empaquetage et déploiement..." ). Il existe d'autres outils comme Inno Setup (https://www.commentcamarche.net/telecharger/developpement/12385-inno-setup/ Dans les 2 cas, la DLL est incluse dans le setup d'installation de ton programme.
A toi de voir la solution qui te convient le mieux.
;o)
