[Visual Basic] Datenträger (Partitionen) abfragen

 Dim schleife1 As Integer
 Dim schleife2 As Integer
 Dim dev As String
 Dim dev_len As Integer

 For schleife1 = 0 To 5
 dev = "\Device\Harddisk" + CStr(schleife1) + "\Partition"
 For schleife2 = 1 To 5
 dev = dev + CStr(schleife2)
 'HIER ABFRAGE OB DIESE PARTITION EXISTIERT'
 dev_len = Len(dev)
 dev = dev.Substring(0, dev_len - 1)
 Next
 Next

Dim myDirectory As New IO.DirectoryInfo(...) 
 If myDirectory.Exists Then
 'Laufwerk besetzt - ausblenden'
 Else
 'Laufwerk frei - einblenden'
 End If

 Dim ComputerName As String
 Dim wmiServices As Object
 Dim objWMIService As Object
 Dim wmiDiskDrives As Object
 Dim wmiDiskDrive As Object
 Dim strEscapedDeviceID As String
 Dim wmiDiskPartitions As Object
 Dim wmiDiskPartition As Object
 Dim sOut As String
 Dim wmiLogicalDisks As Object
 Dim errResult As Object
 Dim wmiLogicalDisk As Object

 On Error GoTo errSub

 'Aktueller Rechner'
 ComputerName = "."

 'WMI-Objekt erstellen'
 wmiServices = GetObject("winmgmts:{impersonationLevel=Impersonate}!//" & ComputerName & "\root\cimv2")

 'WMI-Abfrage erstellen'
 wmiDiskDrives = wmiServices.ExecQuery("SELECT * FROM Win32_DiskDrive")

 'Physische Laufwerke ermitteln (=Festplatten, NICHT Partitionen)'
 ' Infos von http://msdn.microsoft.com/en-us/library/aa394132%28VS.85%29.aspx'
 For Each wmiDiskDrive In wmiDiskDrives
 On Error Resume Next
 sOut = sOut & "Device" & vbTab & wmiDiskDrive.Caption &
 vbNewLine &
 "ID" & vbTab & wmiDiskDrive.DeviceID.ToString.Remove(0, 4) &
 vbNewLine &
 "Partition" & vbTab & wmiDiskDrive.Partitions &
 vbNewLine

 'Backslash in disk drive deviceid must be escaped by "\"
 strEscapedDeviceID = Replace(wmiDiskDrive.DeviceID, "\", "\\", 1, -1, vbTextCompare)

 'Use the disk drive device id to find associated partition'
 wmiDiskPartitions = wmiServices.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & strEscapedDeviceID & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")

 'Logische Laufwerke des physischen Laufwerks ermitteln (=Partitionen)'
 For Each wmiDiskPartition In wmiDiskPartitions
 wmiLogicalDisks = wmiServices.ExecQuery("ASSOCIATORS OF " & "{Win32_DiskPartition.DeviceID=""" & wmiDiskPartition.DeviceID & """} WHERE AssocClass = Win32_LogicalDiskToPartition")

 For Each wmiLogicalDisk In wmiLogicalDisks
 On Error Resume Next
 sOut = sOut &
 vbTab &
 wmiDiskPartition.DeviceID & " (" & wmiLogicalDisk.DeviceID & "\) " & Math.Round(wmiDiskPartition.Size / (1024 * 1024 * 1024), 3) & " GB" &
 vbNewLine
 'wmiDiskPartition.Index: Ausgabe "1" für 1. Partition"'
 'wmiDiskPartition.DeviceID: Ausgabe "Disk #0, Partition #1" für 1. Partition'
 Next
 Next

 'Absatz für neue Festplatte'
 sOut = sOut & vbNewLine

 Next

 MsgBox(sOut)
 Exit Sub
errSub:
 MsgBox(Err.Description)