connaitre la lettre du lecteur CD ROM

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