CONNAITRE LE TYPE D'UN DISQUE
vpcorpprog
Messages postés
36
Date d'inscription
mardi 9 mars 2004
Statut
Membre
Dernière intervention
18 octobre 2005
-
8 juin 2004 à 21:04
CHARFEDDINE1205 Messages postés 15 Date d'inscription mardi 11 avril 2006 Statut Membre Dernière intervention 8 mai 2006 - 12 mai 2006 à 15:31
CHARFEDDINE1205 Messages postés 15 Date d'inscription mardi 11 avril 2006 Statut Membre Dernière intervention 8 mai 2006 - 12 mai 2006 à 15:31
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23524-connaitre-le-type-d-un-disque
https://codes-sources.commentcamarche.net/source/23524-connaitre-le-type-d-un-disque
12 mai 2006 à 15:31
25 août 2004 à 17:03
10 juin 2004 à 10:10
9 juin 2004 à 21:23
9 juin 2004 à 16:21
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
9 juin 2004 à 15:54
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
9 juin 2004 à 09:31
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
9 juin 2004 à 00:12
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
8 juin 2004 à 22:56
8 juin 2004 à 21:54
Sinon c intéressant
@+
8 juin 2004 à 21:04