Connaitre le nombre de lecteur de cdrom

Commenter

Contenu du snippet

C'est un code qui donne le nombre de lecteur de CDROM

Veuillez déclarer un TextBox et un CommandButton dans la form

Source / Exemple : 


' A mettre dans un module
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Public Function FindCDROM() As Byte
    Dim Drive As Integer, Ndrive As Integer
    Const DRIVE_CDROM = 5
    FindCDROM = 0

    For Drive = 65 To 90
        If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
            Ndrive = Ndrive + 1
            End If
    Next Drive
FindCDROM = Ndrive
End Function

'Le reste à mettre dans une form
Private Sub Command1_Click()
  Dim tdf As String
  If FindCDROM > 1 Then tdf = " Lecteurs de CDROM" Else tdf = " Lecteur de CDROM"
  
  Text1.Text = " Vous avez " & FindCDROM & tdf
End Sub

Conclusion :


Pas de bug connu

A voir également

S'inscrire maintenant

Vous 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.

Du même auteur (ericigor)