USB Stick erkennen und Identifizieren?

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von FinnSoft.

    USB Stick erkennen und Identifizieren?

    Hallo,
    wie kann ich wenn ein USB Stick angeschlossen oder abgeschlossen wird, dies erkennen und den Stick eindeutig Identifizieren. Ich könnte ja Theoretisch eine Datei darauf ablegen. Doch genau das will ich nicht. Ich möchte ihn irgendwie anders eindeutig identifizieren vielleicht an der Hardware nummer oder... Wer kann mir helfen?

    Vielen Dank

    Hallo Finnsoft,

    edit: mike bei deinem Code hagelt es Fehler.

    dann bist du der Erste der das feststellt.

    EDIT:
    mein Code erkennt wann ein USB-Stick angesteckt bzw. gezogen wird.
    Nicht mehr - nicht weniger.
    Der Rest ist dem Coder überlassen.

    Gruss

    mikeb69

    Hm... Egal. Ich habe es hinbekommen mit einem anderen Code. Ich werde jetzt noch das mit der Hardwarekennung versuchen und poste dann obs funktioniert hat.

    Danke

    VB.NET-Quellcode

    1. ' Liste aller aktuell vorhandenen Laufwerke
    2. Private currentDrives As New List(Of String)
    4. ' Windows-Message Konstante
    5. Private Const WM_DEVICECHANGE As Integer = &H219
    7. Private Sub Form1_Load(ByVal sender As System.Object, _
    8. ByVal e As System.EventArgs) Handles MyBase.Load
    9. ' Liste aller aktuell vorhandenen Laufwerke ermitteln
    10. For Each d As DriveInfo In DriveInfo.GetDrives
    11. currentDrives.Add(d.RootDirectory.FullName)
    12. Next
    13. End Sub
    15. ' Windows-Messages abhorchen
    16. Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    17. ' Auf Laufwerksänderungen im System reagieren
    18. If m.Msg = WM_DEVICECHANGE Then
    19. ' neue Laufwerksliste erstellen
    20. Dim newDrives As New List(Of String)
    21. For Each d As DriveInfo In DriveInfo.GetDrives
    22. newDrives.Add(d.RootDirectory.FullName)
    23. Next
    25. ' prüfen, ob neue Laufwerke hinzugekommen sind
    26. For Each s As String In newDrives
    27. If Not currentDrives.Contains(s) Then
    28. ' neues Laufwerk gefunden
    29. ListBox1.Items.Add("Neu: " & s)
    30. End If
    31. Next
    33. ' jetzt prüfen, ob Laufwerke entfernt wurden
    34. For Each s As String In currentDrives
    35. If Not newDrives.Contains(s) Then
    36. ' Laufwerk wurde entfernt
    37. ListBox1.Items.Add("Entfernt: " & s)
    38. End If
    39. Next
    41. ' Laufwerks-Array aktualisieren
    42. currentDrives = newDrives
    43. End If
    44. MyBase.WndProc(m)
    45. End Sub
    Das ist mein Code bisher. Jetzt möchte ich es so das wenn ich auf den Eintrag in der Listbox klicke die hardware nummer des sticks gespeichert wird My.Settings oder Datei?

    Dankek für eure hilfe

Facebook
Telefonspende