Comment reconnaître un type de lecteur ?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 139 fois - Téléchargée 68 fois

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

Ajouter un commentaire

Commentaires

pedgom
Messages postés
13
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
1 juin 2004
-
DRIVE_RAMDISK : c'est un disque temporaire créé ds la mem RAM (parfois créé par certaines disquettes boot).
DRIVE_REMOTE : disque non local, habituellement disque réseau.

(l'objet FileSystemObject est bien aussi pr récolter des infos sur les lecteurs).
kaiser95
Messages postés
10
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
30 mai 2003
-
Euh...top moumoute le truc...
Mais j'arive pas a le faire fonctionner dans un module
J'ai une sub main() et ca marche pa....tu peut mettre en ligne un truc fonctionnel ??? STP
Mici
labynocle
Messages postés
9
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
15 mars 2003
-
bon v lire tout ca mais c a l air cool :D
cs_MyC
Messages postés
94
Date d'inscription
lundi 23 septembre 2002
Statut
Membre
Dernière intervention
22 avril 2003
-
Salut,

Peux-tu me dire comment différencier un lecteur de disquette 3-1/2 ; 5-1/2 ; ZIP ou autre avec du code vb ?
Car avec FSO ou l'API, il indique juste que c'est un lecteur de disque amovible mais ne précise pas la sorte de lecteur amovible.
Thank you so much!
cool, juste ce qu' il me fallait

/"-) VbAlex

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.