[.net2] déterminer le nombre de disque(s) dur(s) installés

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 790 fois - Téléchargée 30 fois

Contenu du snippet

Cette fonction toute simple retorune le nombre de disque(s) dur(s) installés dans votre pc.
Pour cela je me suis servi de WMI.

Source / Exemple :


Imports System.Management

Public Function NumOfDiskDrive() As Byte

    'Déclaration de la variable et initialisation d'une nouvelle instance en définissant une requete
    Dim oMngSearcher As New ManagementObjectSearcher("select Name from Win32_DiskDrive")

    'Retourne le nombre de réponses trouvées dans la collection
    Return oMngSearcher.Get.Count

    'Libère l'espace utilisé par l'objet
    oMngSearcher.Dispose()

End Function

Conclusion :


Voila si vous avez des commentaires...

A voir également

Ajouter un commentaire Commentaires
arapahoo Messages postés 26 Date d'inscription lundi 15 mai 2006 Statut Membre Dernière intervention 11 juillet 2008
15 mai 2006 à 20:03
nickel un 10
cs_Blanc Messages postés 181 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 16 octobre 2006
30 mars 2006 à 15:03
ouais.. effectivement j'ai pas précisé.. un oubli de ma part..
cs_Willi Messages postés 2375 Date d'inscription jeudi 12 juillet 2001 Statut Modérateur Dernière intervention 15 décembre 2018 22
30 mars 2006 à 15:00
Ce n'est pas du tout la même chose, ta méthode donne le nombre de partition total de tout tes disques.
Ma méthode quand à elle te donnes le nombre de disque(s) dur(s) qu'il y a physiqement dans ton pc.
cs_Blanc Messages postés 181 Date d'inscription dimanche 6 juillet 2003 Statut Membre Dernière intervention 16 octobre 2006
30 mars 2006 à 13:36
Salut..
Voici un autre code, sans appel de dll ou de quoi que ce soit, avec vb2005 (framework 2.0):

Private Function NombreDisqueDur() As Integer
Dim x As Single
Dim NombreDeDisqueDur As Integer = 0
For x = 0 To My.Computer.FileSystem.Drives.Count - 1
If My.Computer.FileSystem.Drives.Item(x).DriveType = IO.DriveType.Fixed Then
NombreDeDisqueDur += 1
End If
Next
Return NombreDeDisqueDur
End Function

Permet aussi de choper les autres types de disque (disc amovible/cd-rom.....)
amylee1984 Messages postés 153 Date d'inscription mardi 1 novembre 2005 Statut Membre Dernière intervention 20 août 2006 3
16 mars 2006 à 21:22
merci , ca marche nickel, tres bien comme fonction je met 10
Afficher les 8 commentaires

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.