Wie ermittle ich in VB.NET 2003 die vollständigen Namen der Laufwerke wie "Lokaler Datenträger (C:)", "DVD-RW-Laufwerk (F:)", "USB2 (G:)"?

In VB.NET 2003 kannst du die vollständigen Namen der Laufwerke (wie „Lokaler Datenträger (C:)“, „DVD-RW-Laufwerk (F:)“, „USB2 (G:)“ usw.) mit Hilfe des `System.IO.DriveInfo`-Objekts **nicht** direkt ermitteln, da dieses erst ab .NET Framework 2.0 verfügbar ist. In .NET 1.1 (wie in VB.NET 2003 üblich) musst du auf die Windows-API zurückgreifen, um den „vollständigen Namen“ (also die Bezeichnung aus dem Explorer) zu bekommen.

Hier ein Beispiel, wie du das mit der Windows-API-Funktion `GetVolumeInformation` und `GetLogicalDriveStrings` machen kannst:

```vbnet
Imports System.Runtime.InteropServices
Imports System.Text

Module Module1

<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
Private Function GetVolumeInformation( _
ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As StringBuilder, _
ByVal nVolumeNameSize As Integer, _
ByRef lpVolumeSerialNumber As Integer, _
ByRef lpMaximumComponentLength As Integer, _
ByRef lpFileSystemFlags As Integer, _
ByVal lpFileSystemNameBuffer As StringBuilder, _
ByVal nFileSystemNameSize As Integer) As Boolean
End Function

<DllImport("kernel32.dll", CharSet:=CharSet.Auto)> _
Private Function GetLogicalDriveStrings( _
ByVal nBufferLength As Integer, _
ByVal lpBuffer As StringBuilder) As Integer
End Function

Sub Main()
Dim buffer As New StringBuilder(256)
Dim drives As New StringBuilder(256)
GetLogicalDriveStrings(drives.Capacity, drives)
Dim allDrives() As String = drives.ToString().Split(Chr(0))
For Each drive As String In allDrives
If drive.Length > 0 Then
Dim volName As New StringBuilder(256)
Dim fsName As New StringBuilder(256)
Dim serialNum, maxCompLen, fsFlags As Integer
If GetVolumeInformation(drive, volName, volName.Capacity, serialNum, maxCompLen, fsFlags, fsName, fsName.Capacity) Then
Dim label As String = volName.ToString()
If label = "" Then label = "Lokaler Datenträger"
Console.WriteLine(label & " (" & drive.TrimEnd("\"c) & ")")
End If
End If
Next
End Sub

End Module
```

**Hinweise:**
- Das Laufwerkslabel (z.B. „USB2“) wird mit `GetVolumeInformation` ausgelesen.
- Wenn kein Label vergeben ist, wird „Lokaler Datenträger“ angezeigt.
- Die genaue Bezeichnung wie „DVD-RW-Laufwerk“ bekommst du so nicht, da das Windows-Explorer-spezifisch ist. Du kannst aber anhand des Laufwerkstyps (z.B. mit `GetDriveType`) unterscheiden, ob es sich um ein CD/DVD-Laufwerk handelt.

**Weitere Infos:**
- [Microsoft Doku zu GetVolumeInformation](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getvolumeinformationa)
- [Microsoft Doku zu GetLogicalDriveStrings](https://learn.microsoft.com/en-us/windows/win32/api/fileapi/nf-fileapi-getlogicaldrivestringsa)

Für eine noch genauere Anzeige wie im Explorer müsstest du auf WMI oder Shell-APIs zurückgreifen, was in VB.NET 2003 aber recht aufwändig ist.