Comment reconnaître un type de lecteur ?

Commenter

Contenu du snippet

Ce code est très utile pour savoir à quel sorte de lecteur on a à faire. (Disquette, Disque dur, Cd roms...et des autres trucs que je ne connaîs pas)

Source / Exemple : 


'On déclare la function et les constantes
'(Private pour une feuille, Public pour un module) :
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_CDROM = 5
Private Const DRIVE_FIXED = 3
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_REMOVABLE = 2

' On prépare les variables :
Dim TypeDeLecteur As Long   'La réponse de GetDriveType
Dim QuelLecteur As String   'La lettre du lecteur

'L'utilisateur choisira une lettre à partir de n'importe quoi
'comme une textbox, une drivebox...   (ex : 'c:' ou 'c:\')
'Bref, on s'arrange pour qu'elle soit stockée dans la
'variable appellée 'QuelLecteur'

'On appelle....
TypeDeLecteur = GetDriveType(QuelLecteur)

' Et maintenant,
'selon le type de lecteur, on a le choix :

Select Case TypeDeLecteur
Case DRIVE_CDROM
    ' C'est un lecteur de CDROMs
Case DRIVE_FIXED
    ' C'est un disque dur
Case DRIVE_RAMDISK
    ' C'est un heu.... j'en sais rien
Case DRIVE_REMOTE
    ' là pareil...
Case DRIVE_REMOVABLE
    ' Mais là c'est un lecteur de disquettes
End Select

'PS : Juste en dessous des 'Case ------', à
'l'endroit où sont inscrits les commentaires, c'est là que
'l'on met les instructions selon le type de lecteur.

'Ex : Case DRIVE_CDROM
'          MsgBox "C'est un lecteur CDROMs", , "Lecteurs"

Conclusion :


j'ai mis ici que l'essentiel, mais on peut obtenir l'espace libre/occupé, le label, des tableaux de proportions....
si vous voulez que je mette tout dans ce code, demandez moi...
Win Druide (w_druide@voila.fr) ... j'exaucerai !

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 (Win Druide)