Localiser un lecteur cd-rom
Soyez le premier à donner votre avis sur cette source.
Vue 13 013 fois - Téléchargée 680 fois
Description
Comment trouver la lettre du lecteur CD-ROM ?
Faites un Formulaire avec une DriveListBox ( mettez-la invisible )
puis mettez ce code dans un Module :
Faites un Formulaire avec une DriveListBox ( mettez-la invisible )
puis mettez ce code dans un Module :
Source / Exemple :
Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Public Function LettreCDROM()
For Lecteurs = 0 To Form1.Drive1.ListCount - 1
LV = GetDriveType(Left(Form1.Drive1.List(Lecteurs), 1) & ":\")
If LV = 5 Then Exit For
Next
LettreCDROM = Left$(Form1.Drive1.List(Lecteurs), 1)
End Function
' Pour trouver la lettre du CD-ROM, mettez ce code dans un Bouton_Click :
MsgBox ("La Lettre du lecteur CD-ROM est : " & LettreCDROM)
Codes Sources
A voir également
- Localiser un lecteur cd-rom
- Visual Basic / VB.NET : Ouvrir et fermer un lecteur cd-rom - CodeS SourceS - Guide
- Visual Basic / VB.NET : Ouvrir et fermer le lecteur cd-rom ou dvd - CodeS SourceS - Guide
- Javascript : Ouvrir les lecteurs cd-rom et graveur - CodeS SourceS - Guide
- Utilitaire servant à cacher le lecteur cd-rom - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Verrouillez l'ouverture de vos lecteurs cd-rom - Codes sources - Visual Basic / VB.NET (API)
Commentaires
merci nix pour ce prog et ce bo site !!!
- Messages postés
-
780
- Date d'inscription
- lundi 16 décembre 2002
- Statut
- Membre
- Dernière intervention
- 16 avril 2009
1Vous 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.