Corrigé 20.2 Connaître les types des unités logiques

Dans la partie déclarations du module standard :

Private Declare Function GetLogicalDrives Lib "kernel32" () As Long 
Private Declare Function GetDriveType Lib "kernel32" Alias 
"GetDriveTypeA" (ByVal nDrive As String) As Long 

Code de la procédure :

Sub Types_Unités_Logiques() 
    Dim lngMasqueUnités As Long 
    Dim strUnités As String 
    Dim strUneUnité As String 
    Dim intNoUnité As Integer 
    Dim strtype As String 
 
    lngMasqueUnités = GetLogicalDrives 
    strUnités = "Unités logiques:" & vbCrLf 
 
    For intNoUnité = 0 To 25 
        If (lngMasqueUnités And 2 ^ intNoUnité) <> 0 Then 
            strUneUnité...
Pour consulter la suite, découvrez le livre suivant :
couv_TP21EXCV.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Corrigé 20.1 Générer un son bref (bip)
Suivant
Corrigé 20.3 Masquer la croix de fermeture des formulaires personnalisés