Exemple en mettant un filelistbox dans ton projet...
if TestCD ("E:\") = true then tu as un cd audio dans ton lecteur
Private Function TestCD(Lecteur As String) As Boolean
On Error GoTo ErrTestCD
File1.Pattern = "*.cda"
File1.Path = Lecteur
If File1.ListCount > 0 Then TestCD = True
Exit Function
ErrTestCD:
TestCD = False
End Function
-------------------------------
Réponse au message :
-------------------------------
> Comment savoir si un cd audio est inséré dans le lecteur ?
> Si il faut utiliser une api pourrais tu l'illustrer par un exemple concret (je viens juste de découvrir les apis) ?
>
>
> Cordialement,
>
cBJp