Imports System
Imports System.IO
Imports System.Management 'Verweis auf Assembly System.Management.DLL ist 
' erforderlich !!!! 
 
Public Class frmDrives2
 
    Dim WithEvents watcher As New ManagementEventWatcher
 
    Dim lstdrives As New List(Of String)
    Dim bsDrives As New BindingSource With {.DataSource = lstdrives}
    Dim WithEvents cboDrives As New ComboBox With
        {.Parent = Me, .Width = 200, .Left = 5, .Top = 5,
        .DropDownStyle = ComboBoxStyle.DropDown, .DataSource = bsDrives}
 
    Dim SelectedDrive As String = ""
 
 
    Public Enum USBAction
        inserted = 2
        removed = 3
    End Enum
 
 
    Private Sub frmDrives2_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        FillDrivelist()
 
        Dim query As WqlEventQuery = New
        WqlEventQuery("SELECT * FROM Win32_VolumeChangeEvent WHERE EventType =" & _
          "2 or EventType = 3")
 
        watcher.Query = query
        watcher.Start()
 
    End Sub
 
 
    Private Sub watcher_EventArrived(sender As Object, 
        e As EventArrivedEventArgs) Handles watcher.EventArrived
 
        Dim et As Short = CShort(e.NewEvent.Properties("EventType").Value)
        Dim driveName As String = e.NewEvent.Properties( _
          "DriveName").Value.ToString
        Dim eventName As String = [Enum].GetName(GetType(USBAction), et)
 
        If et = USBAction.inserted Then
            For Each drv As DriveInfo In IO.DriveInfo.GetDrives
                If drv.Name.StartsWith(driveName) Then
                    lstdrives.Add(driveName & "  " & drv.DriveType.ToString)
                End If
            Next drv
            lstdrives.Sort()
        Else
            For i As Integer = lstdrives.Count - 1 To 0 Step -1
                If lstdrives(i).StartsWith(driveName) Then lstdrives.RemoveAt(i)
            Next i
        End If
 
        cboDrives.Invoke(New MethodInvoker(AddressOf SetDriveBinding))
    End Sub
 
 
    Private Sub SetDriveBinding()
        bsDrives.ResetBindings(False)
        SetSelectedDrive()
    End Sub
 
 
    Private Sub FillDrivelist()
        lstdrives.Clear()
 
        For Each drv As DriveInfo In IO.DriveInfo.GetDrives
            lstdrives.Add(drv.Name & " " & drv.DriveType.ToString)
        Next drv
        lstdrives.Sort()
        bsDrives.ResetBindings(False)
    End Sub
 
 
    Private Sub SetSelectedDrive()
        Dim found As Boolean
        If String.IsNullOrEmpty(SelectedDrive) Then Exit Sub
        If lstdrives.Count = 0 Then Exit Sub
 
        For i As Integer = 0 To lstdrives.Count - 1
            If lstdrives(i).StartsWith(SelectedDrive) Then
                cboDrives.SelectedIndex = i : found = True
            End If
        Next i
        If Not found Then cboDrives.SelectedIndex = 0
    End Sub
 
 
    Private Sub cboDrives_SelectedIndexChanged(sender As Object,
                e As EventArgs) Handles cboDrives.SelectedIndexChanged
        If cboDrives.SelectedItem Is Nothing Then
            SelectedDrive = ""
        Else
            SelectedDrive = cboDrives.SelectedItem.ToString
        End If
    End Sub
End Class