Informações do Disco Rigido do PC (Hardware) - VB.NET

Primeiro referncie o ManagamentObject em; botão direito no projeto, Add Reference(Adicionar Referencia) e adicione System.ManagamentObject


Crie uma classe chamada infoDisco

1:  Imports System.Management  
2:  Public Class infoDisco  
3:    'Retorna o tamanho do HD  
4:    Function Size(ByVal Drive As String) As String  
5:      Try  
6:        Dim Disco As New ManagementObject("win32_logicaldisk.deviceid=" & """" & Drive & """")  
7:        Disco.get()  
8:        Return Disco("Size").ToString / 1024 / 1024 / 1024  
9:      Catch  
10:        Return "Drive: " & Drive & " não localizado"  
11:      End Try  
12:    End Function  
13:    'Retorna a quantidade de espaço livre no Disco  
14:    Function Livre(ByVal Drive As String) As String  
15:      Try  
16:        Dim Disco As New ManagementObject("win32_logicaldisk.deviceid=" & """" & Drive & """")  
17:        Disco.Get()  
18:        Return Disco("FreeSpace").ToString / 1024 / 1024 / 1024  
19:      Catch ex As Exception  
20:        Return "Drive: " & Drive & " não localizado"  
21:      End Try  
22:    End Function  
23:    'Retorna a quantidade usada no disco  
24:    Function UsoDoDisco(ByVal Drive As String) As String  
25:      Try  
26:        Dim space As Long  
27:        Dim Disco As New ManagementObject("win32_logicaldisk.deviceid=" & """" & Drive & """")  
28:        Disco.Get()  
29:        space = Disco("Size").ToString - Disco("FreeSpace").ToString  
30:        'Retorna e converte o numero para Giga  
31:        Return space.ToString / 1024 / 1024 / 1024  
32:      Catch ex As Exception  
33:        Return "Drive: " & Drive & " não localizado"  
34:      End Try  
35:    End Function  
36:  End Class  

Para chamar determinadas funções utilize

Dim info As New infoDisco()

1:  Textbox1.text = info.Size ' Para o Tamanho do Disco  
2:  Textbox2.text = info.Livre ' Para retornar quantida livre no disco  

E Assim por diante...

COMENTE

& Compartilhe

Tweet