کد سوم :این کد تعداد پارتیشن های هارددیسکتون رو بر میگردونه . مثلا 6
Dim HDD_Partitions As String
Dim mgmt As Management.ManagementClass = New Management.ManagementClass("Win32_DiskDrive")
Dim objcol As Management.ManagementObjectCollection = mgmt.GetInstances()
For Each obj As Management.ManagementObject In objcol
If HDD_Partitions = String.Empty Then
HDD_Partitions = obj.Properties("Partitions").Value.ToString
End If
Next
MsgBox(HDD_Partitions, MsgBoxStyle.Information, "Hard Disk Partitions Number")
پاسخ با نقل قول
