Discussion :

[Oberown]

Comment connaître l'espace qu'à un disque dur et la quantité de libre de disponible ?

Merci

[troxsa]

Bonjour,


Pas besoin de WMI forcement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Dim Drive As New DriveInfo("C:\")
        Dim FreeSpace As Double = Drive.AvailableFreeSpace
        Dim Disk As Double = Drive.TotalSize
        Dim Utiliser As Double = Disk - FreeSpace
 
        Console.WriteLine("Espace utiliser : " & Utiliser & " octets")
        Console.WriteLine("Espace libre : " & FreeSpace & " octets")
        Console.WriteLine("Capacité : " & Disk & " octets")

et c'est plus rapide que WMI
maintenant on peux toujours prendre une petite bouble For Each pour recup tout les lecteurs du PC local .

@+