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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 531 fois - Téléchargée 29 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

nickel un 10
cs_Blanc
Messages postés
181
Date d'inscription
dimanche 6 juillet 2003
Statut
Membre
Dernière intervention
16 octobre 2006

ouais.. effectivement j'ai pas précisé.. un oubli de ma part..
cs_Willi
Messages postés
2376
Date d'inscription
jeudi 12 juillet 2001
Statut
Modérateur
Dernière intervention
15 décembre 2018
17
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

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
154
Date d'inscription
mardi 1 novembre 2005
Statut
Membre
Dernière intervention
20 août 2006
3
merci , ca marche nickel, tres bien comme fonction je met 10

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.