Visual Basic programlama dili kullanılarak, bilgisayarın disk bilgilerini toplamak oldukça kolaydır. Windows işletim sistemi tarafından sağlanan birçok API işlevi, disk bilgilerine erişim sağlayabilir.
Aşağıdaki kod örneği, Visual Basic kullanarak disk bilgilerini toplamanıza olanak tanır:
vb.net
Imports System.Management
Public Class Form1
Private Sub btnGetDiskInfo_Click(sender As Object, e As EventArgs) Handles btnGetDiskInfo.Click
Dim diskDrive As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
For Each drive As ManagementObject In diskDrive.Get()
Dim driveName As String = drive("Name").ToString()
Dim driveSize As Long = CLng(drive("Size"))
Dim driveSizeGB As Double = Math.Round((driveSize / (1024 ^ 3)), 2)
Dim driveType As String = drive("MediaType").ToString()
Dim driveSerialNumber As String = drive("SerialNumber").ToString()
MsgBox(String.Format("Drive Name: {0}" & vbCrLf & "Size: {1} GB" & vbCrLf & "Type: {2}" & vbCrLf & "Serial Number: {3}", driveName, driveSizeGB, driveType, driveSerialNumber))
Next
End SubEnd Class
Bu örnekte, System.Management ad alanından yararlanarak, Win32_DiskDrive sınıfı kullanılarak bilgisayarın disk sürücülerini sorguluyoruz. Daha sonra, her disk sürücüsünün adını, boyutunu, türünü ve seri numarasını alıyoruz. For Each döngüsü ile sorgudan gelen tüm disk sürücüleri üzerinde dolaşarak, her biri hakkında bilgi topluyoruz.
MsgBox fonksiyonu, toplanan disk sürücü bilgilerini bir mesaj kutusu olarak gösterir. Ancak bu bilgileri başka bir form nesnesine yazdırmak, bir dosyaya kaydetmek veya bir veritabanına kaydetmek gibi başka işlemlerle de değiştirebilirsiniz.