Récuperer taille d'un disque.Résolu

Question

Bonjour a tous. 

Je souhaite récuperer la taille de mon disque dur en VB 2005. Pour cela j'utilise WMI. 
  
  Public Function get_hard_disk() As String
        Dim strSN As Int64
        Dim strQuery As String = "SELECT * FROM Win32_PhysicalMedia"
        Dim query As ManagementObjectSearcher = New ManagementObjectSearcher(strQuery)
        Dim queryCollection As ManagementObjectCollection = query.Get()
        Dim mo As ManagementObject

        For Each mo In queryCollection
            strSN = mo("Capacity")

        Next
        Return strSN
    End Function

Le probleme est qu'il me retourne ... 0 ... 

Si quelqu'un vois le probleme, ou peut me donné une autre maniere de récuperer la taille de mon disque, je suis preneur. 

Cordialement.

DeWaRs.

lesdis · Accepted Answer

Bonjour,







For
Each dd As System.IO.DriveInfo In My.Computer.FileSystem.Drives

Debug.WriteLine(dd.TotalSize)

Next





Bonne Prog

cs_DeWaRs · Answer

Merci. 

Cependant, il me met " The device is not ready. " dans Debug.WriteLine(dd.TotalSize).

Une idée ?

cs_DeWaRs · Answer

En fait il fait le scan pour le lecteur CD aussi, et vu qu'il n'y a rien, cela ne fonctionne pas. Comment puis-je selectionner uniquement le disque dur ??

lesdis · Answer

Suffit de chercher juste un peu dans l'intellisense :

 For Each dd As System.IO.DriveInfo In My.Computer.FileSystem.Drives
            If dd.IsReady Then
                Debug.WriteLine(dd.TotalSize)
            End If
        Next

Bonne Prog

cs_DeWaRs · Answer

Cool ! 

Le probleme maintenant, c'est qui me donne tous les lecteurs réseau mapper. Je peux spécifier le nom du lecteur par exemple, ou le fait qu'il soit en local ?

cs_DeWaRs · Answer

surement ac dd.name ... Je vais chercher un peu :)

Récuperer taille d'un disque.

6 réponses

Votre réponse

Discussions similaires