Connaitre la lettre du lecteur CD ROM
youkizouki
Messages postés
82
Date d'inscription
jeudi 22 avril 2004
Statut
Membre
Dernière intervention
12 octobre 2005
-
18 mai 2005 à 10:13
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 18 mai 2005 à 15:15
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 18 mai 2005 à 15:15
A voir également:
- Connaitre la lettre du lecteur CD ROM
- Eclipse lecteur mp3 ✓ - Forum Java
- Lecteur m3u en ligne - Forum PHP
- Fabriquer un lecteur rfid ✓ - Forum VBA Office (Excel, Word ...)
- Lettre de motivation débutant - Forum Java
- 21600 en lettre - Forum Visual Basic 6
1 réponse
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
18 mai 2005 à 15:15
18 mai 2005 à 15:15
v'la un bout de code qui te donne le type de lecteur pour une lettre donnée.
t'as plus qu'a modifier pour recuperer le 1er lecteur cdrom
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C:\
Select Case GetDriveType("C:")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case 4
Me.Print "Remote"
Case 5
Me.Print "Cd-Rom"
Case 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub
++
BasicInstinct
t'as plus qu'a modifier pour recuperer le 1er lecteur cdrom
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub Form_Load()
'KPD-Team 1998
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
'Set the graphic mode to persistent
Me.AutoRedraw = True
'Get information about the C:\
Select Case GetDriveType("C:")
Case 2
Me.Print "Removable"
Case 3
Me.Print "Drive Fixed"
Case 4
Me.Print "Remote"
Case 5
Me.Print "Cd-Rom"
Case 6
Me.Print "Ram disk"
Case Else
Me.Print "Unrecognized"
End Select
End Sub
++
BasicInstinct
