Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 09 08 00:58:32

DELL INSPIRON MINI 9 - ENFIN EN VENTE !!! par ebartsoft

SOLUTION TEMPLATE ET PROJECT TEMPLATE DANS VISUAL STUDIO par cyril

POCKETIE ET ASSIGNATION DU SRC D'UN ELEMENT IMG par jay

CONVERSION DE FICHIERS RAW EN FICHIER JPEG AVEC WPF par odewit

MISE à JOUR DU MOTEUR DE RECHERCHE DES ARRêTS DE BUS DE MONTRéAL par jay

RE : VB.NET PROBLèME AVEC UNE REQUêTE SQL par nhervagault

RE : AIDE POUR LA CRéATION D'UN OCX par nhervagault

BESOIN D'AIDE SUR COMMANDBUTTON par chodelni

RE : APPLICATION RECETTES DE CUISINE par gillardg

RE : EXPRESSION POUR FILTRER UNE TABLE DANS MA DATASET par gillardg

+ de logiciels à télécharger

Stylo Sans Fils à détection de mouvement IOGEAR (GPEN200NW6) Stylo Numérique au meilleur prix

1 238 494 membres
10 nouveaux aujourd'hui
14 317 membres club

Trouver une ressource

Trouvez une ressource parmi 38 621 codes, 1 171 288 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONNAITRE LE TYPE D'UN DISQUE

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 08/06/2004 Date de mise à jour : 11/06/2004 19:50:46 Vu : 3 880

Auteur : jrbleboss

Ecrire un message privé

Note :

5,00 / 10

Commentaire sur cette source (11)

Ajouter un commentaire et/ou une note

Description

Un petit programme qui sert a savoir le type d'un disque une API.

Source

'déclaration de l'api
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub a_click()
choix = InputBox("Donnez La lettre du disque dont vous désirez savoir se qu'il est.", "Choix du disque")
rs = GetDriveType(choix & ":\") 'Rs se charge suivant la lettre du disque
Select Case rs 'Analise de rs
Case 0 'si il fait 0 il y a erreur
h = MsgBox("Erreur", vbCritical, "Disque")
Case 1 'si il fait 1 le disque est inconnu
h = MsgBox("Le disque " & choix & ":\ est de type inconnu ou n'existe pas", , "Analiseur de disque")
Case 2 'si il fait 2 c'est un lecteur de disquette
h = MsgBox("Le disque " & choix & ":\ est un lecteur de disquette", , "Analiseur de disque")
Case 3 'si il fait 3 c'est un disque dur
h = MsgBox("Le disque " & choix & ":\ est un disque dur", , "Analiseur de disque")
Case 4 'si il fait 4 c'est un disque logique
h = MsgBox("Le disque " & choix & ":\ est disque logique", , "Analiseur de disque")
Case 5 'si il fait 5 c'est un lecteur CD ou DVD
h = MsgBox("Le disque " & choix & ":\ est un lecteur de CD-Rom", , "Analiseur de disque")
End Select
End Sub

'déclaration de l'api
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Sub a_click()
choix = InputBox("Donnez La lettre du disque dont vous désirez savoir se qu'il est.", "Choix du disque")
rs = GetDriveType(choix & ":\") 'Rs se charge suivant la lettre du disque
Select Case rs 'Analise de rs
Case 0 'si il fait 0 il y a erreur
h = MsgBox("Erreur", vbCritical, "Disque")
Case 1 'si il fait 1 le disque est inconnu
h = MsgBox("Le disque " & choix & ":\ est de type inconnu ou n'existe pas", , "Analiseur de disque")
Case 2 'si il fait 2 c'est un lecteur de disquette
h = MsgBox("Le disque " & choix & ":\ est un lecteur de disquette", , "Analiseur de disque")
Case 3 'si il fait 3 c'est un disque dur
h = MsgBox("Le disque " & choix & ":\ est un disque dur", , "Analiseur de disque")
Case 4 'si il fait 4 c'est un disque logique
h = MsgBox("Le disque " & choix & ":\ est disque logique", , "Analiseur de disque")
Case 5 'si il fait 5 c'est un lecteur CD ou DVD
h = MsgBox("Le disque " & choix & ":\ est un lecteur de CD-Rom", , "Analiseur de disque")
End Select
End Sub

Conclusion

Ca peut être pas mal pour des progs de gravure ect...

Sources du même auteur

PARCOURS DE LA SOURIS

TABLEAU HTML

APPLICATION CONSOLE

SUPPRIMER TOUT LES FICHIER PAR LEUR EXTENSION SUR OUT LES SU...

CONVERTIR UN FICHIER CVS DANS EXCEL

Toutes les sources de jrbleboss

Sources de la même categorie

EXTRACTION DES ICONES D'UN FICHIER .EXE par boutemine

TITLE BAR, AJOUTEZ VOTRE BOUTTON DANS LA BARE DE TITRE DES F... par werdDomain

VERROUILLAGE DU LECTEUR CD - EJECTION SUR MOT DE PASSE par Renfield

CHANGEDESKTOP: CHANGEMENT DE L'APPARENCE DE LA LISTVIEW DU B... par zesamoth

SERVEUR OPC par crownstud

Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de vpcorpprog le 08/06/2004 21:04:37

pas mal du tout 7/10

Commentaire de FearBlue le 08/06/2004 21:54:18

type s'écrit avec un y :d lol
Sinon c intéressant
@+

Commentaire de DeadlyPredator le 08/06/2004 22:56:07

et un RamDrive?

Commentaire de Renfield le 09/06/2004 00:12:57 administrateur CS

6 -> RamDisk

utilises des constantes !!!  (et déclares tes variables !!!!!)

de plus, tu pourrais simplifier :

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

Private Const DRIVE_ERROR = 0
Private Const DRIVE_UNKNOWN = 1
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_RAMDISK = 6
Private Const DRIVE_FIXED = 3
Private Const DRIVE_CDROM = 5

Private Sub a_click()
    Dim Drive as String
    Drive = InputBox("Donnez La lettre du disque dont vous désirez savoir se qu'il est.", "Choix du disque") & ":\"

    Dim DriveType as String

    Select Case GetDriveType( Drive )
     Case DRIVE_ERROR
    MsgBox("Erreur", vbCritical, "Disque")
    Exit Sub
Case DRIVE_UNKNOWN
    DriveType = " est de type inconnu ou n'existe pas."
Case DRIVE_REMOVABLE
    DriveType = " est un lecteur de disquette."
Case DRIVE_FIXED
    DriveType = " est un disque dur."
Case DRIVE_REMOTE
    DriveType = " est disque logique."
Case DRIVE_CDROM
    DriveType = " est un lecteur de CD-Rom."
Case DRIVE_RAMDISK
    DriveType = " est un RamDrive."
    End Select

    MsgBox("Le disque " & Drive & DriveType , , "Analyseur de disque")
End Sub

Commentaire de RayBan le 09/06/2004 09:31:35

Celui qui à mis 7/10... C'est du n'importe quoi... Cette API est archi connue et il suffit d'ouvrir n'importe qu'elle bouquin sur les API pour la trouver....

La première fois que je ai utilisée cette API c'est avec vb5, c'est pour dire... Il faudrait voir pour donner des notes qui tienne la route... Car même l'exemple qui est donné est de mauvaise qualité et fouilli. Les déclaration de variable ça n'existe pas... Alors les 7/10 de ce genre, on s'en passe. Car pour n'importe quel développeur qui débute, cet exemple ne peut que lui donner que des mauvaises habitudes.

L'exemple de Renfield est bien supérieur et beaucoup plus clair. Il souligne justement l'utilisation de constante.

J'aurais mis 7/10 à Renfield à la place car autant pour des débutant que pour des experts, l'exemple est vraiement très bon....

Ray Ban

Commentaire de Saros le 09/06/2004 15:54:33

C'est pas parce qu'un code est connu qu'on a plus le droit d'écrire quelque chose à son propos... La connaissance s'acquiert, c'est beaucoup mieux si continuellement, des gens redécouvrent ce qui peut-être a déjà été dit ; mais sous un autre point de vue ? Afin d'y ajouter quelque chose ? Il me semble que c'est la base du progrès...
Si tu n'as rien appris, sache que tu n'es pas seul...
Mais c'est clair que lorsqu'on intègre l'API dans un code immense, il vaut mieux utiliser des lettres plutôt que des chiffres. D'ailleurs, Renfield, je ne sais pas si c'est vraiment simplifier que de court-circuiter rs, je veux dire pour la compréhension... et si le résultat est utilisé plusieurs fois d'affilée dans le code...
Mais bon au moins ça marche.
7/10 (na!)
Saros

Commentaire de RayBan le 09/06/2004 16:21:39

Tout est discutable... Ton point de vu de faire redécouvrir des codes peu utilisées est, je l'avoue, très bon...

En ce qui concerne le code... Le code de Renfield devrait-être modifié pour en faire un vrai fonction qui serait plus adéquat et plus facile à appeler plusieurs fois. La il serait intéressant d'utiliser une énumération...

Mais en ce qui concerne la clarté, le code de Renfield est quand beaucoup plus clair....

Ray Ban

Commentaire de Urgo le 09/06/2004 21:23:24

Ne mérite 10/10 que si tu trouves comment différencier un Lecteur CD d'un lecteur DVD :p

Commentaire de Saros le 10/06/2004 10:10:06

Il suffit de faire un test de capacité... Mais c'est bien remarqué :)

Commentaire de FrostByte le 25/08/2004 17:03:32

Un test de capacité ?? et si ton lecteur ne contient aucun média ?????? ;p

Commentaire de CHARFEDDINE1205 le 12/05/2006 15:31:01

Ce code ermet de récuperer seulement le type du lecteur.Avez vous une idee comment peut on le modifier pour qu'il permet de récuperer d'autres informations sur le lecteur tel que sa marque,son numéro de série,...