Connaitre le nombre de lecteur de cdrom

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 865 fois - Téléchargée 27 fois

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

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
Private Sub Form_Load()
Dim FSO As New FileSystemObject
Dim Drive As Drive

For Each Drive In FSO.Drives
With Drive
If .IsReady Then
Debug.Print "------------------------------"
Debug.Print .DriveLetter & ": [" & .VolumeName & "]"
Debug.Print "Espace Total : " & .TotalSize
Debug.Print "Espace Libre : " & .FreeSpace
Debug.Print "Nom de partage : " & .ShareName
Debug.Print "Type de lecteur : " & GetDriveTypeString(.DriveType) & " (" & .DriveType & ")"
Else
Debug.Print "------------------------------"
Debug.Print .DriveLetter & ": Disque non pret."
Debug.Print "Type de lecteur : " & GetDriveTypeString(.DriveType) & " (" & .DriveType & ")"
End If
End With
Next Drive
End
End Sub


Function GetDriveTypeString(DriveType) As String
GetDriveTypeString = Choose(DriveType, "Lecteur Disquette", _
"Disque Dur", _
"Lecteur Réseau", _
"Lecteur CD", _
"Lecteur RAM")
End Function
Messages postés
102
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
6 juin 2010

ericigor :
Ce que voulais dire DarkSidous, c'est seulement que pour mettre sa photo ce n'est pas dans le module "capture d'ecran", dont l'utilisation est plus reservee a des vues d'ecran, qu'il faut la mettre mais dans le module "Ajouter/Changer votre photo/avatar" dans "Votre compte".
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
en liant "Microsoft Scripting Runtime" dans Projet > References,
tu ajoutes qqes fonctionnalites a ton projet. Nottament la collection Drives, qui permet d'accedes a tout un tas d'infos sur les lecteurs.....
Messages postés
8
Date d'inscription
samedi 8 mars 2003
Statut
Membre
Dernière intervention
3 avril 2005

Pour DARKSIDIOUS
Je n'ai pas de capture d'écran désolé, je suis vraiment pauvre en capture d'écran mais au demeurant je n'ai aucun compte à rendre à qui que ce soit puisqu'il n'y aucun copyright !

Pour STEVE06
C'est possible, je faire un effort dans ce sens cela mais d'autres beaucoup plus fort que moi ont déja fait le même travail et de bonne qualité.


Pour Renfield
What is it FSO ? FSO je ne connais pas désolé j'ai beaucoup à apprendre.
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
toutes ces infos sont facilement recuperables via les classes du FSO
Afficher les 7 commentaires

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.