Visual Basic ile Disk Bilgileri Toplama Nasıl Yapılır ?

Imports System.IO Imports System.Management Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ‘ Tüm disk sürücülerini al Dim drives As DriveInfo() = DriveInfo.GetDrives() ‘ Her sürücü için bilgi topla ve ekrana yazdır For Each d As DriveInfo In drives If d.IsReady Then Dim root As String = d.RootDirectory.ToString() Dim freeSpace As String = (d.AvailableFreeSpace / (1024 * 1024 * 1024)).ToString(“N2″) + ” GB” Dim totalSize As String = (d.TotalSize / (1024 * 1024 * 1024)).ToString(“N2″) + ” GB” Dim label As String = d.VolumeLabel Dim fileSystem As String = d.DriveFormat Dim query As String = String.Format(“SELECT * FROM Win32_LogicalDisk WHERE DeviceID = ‘{0}'”, root.Replace(“”, “”)) Dim searcher As New ManagementObjectSearcher(query) Dim results As ManagementObjectCollection = searcher.Get() For Each result As ManagementObject In results Dim serialNumber As String = result(“VolumeSerialNumber”).ToString() Dim driveType As String = result(“DriveType”).ToString() Dim driveTypeStr As String = “” Select Case driveType Case “0” driveTypeStr = “Unknown” Case “1” driveTypeStr = “No Root Directory” Case “2” driveTypeStr = “Removable Disk” Case “3” driveTypeStr = “Local Disk” Case “4” driveTypeStr = “Network Drive” Case “5” driveTypeStr = “Compact Disc” Case “6” driveTypeStr = “RAM Disk” End Select ‘ Bilgiyi ekrana yazdır RichTextBox1.AppendText(String.Format(“Drive {0} ({1}): {2} free of {3} ({4}), serial number: {5}, file system: {6}” + Environment.NewLine, root, driveTypeStr, freeSpace, totalSize, label, serialNumber, fileSystem)) Next End If Next End Sub End Class