Erkennen, wann ein Laufwerk hinzugefügt bzw. entfernt wurde (USB-Stick)

    • VB.NET

    Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von lupo76.

      Erkennen, wann ein Laufwerk hinzugefügt bzw. entfernt wurde (USB-Stick)

      Hallo,

      wie kann man erkennen ob ein USB-Stick eingesteckt bzw. entfernt wurde ohne einen Timer verwenden zu müssen.

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class Form1
      5. Private allDrives As New List(Of DriveInfo)
      7. Private Const WM_DEVICECHANGE As Integer = &H219
      8. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
      9. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
      11. Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
      12. MyBase.WndProc(msg)
      13. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEARRIVAL Then
      14. 'alle laufwerke durchlaufen und in der liste suchen
      15. For Each s As String In Directory.GetLogicalDrives
      16. find_driveinfo_arg = s
      17. Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
      18. If d Is Nothing Then
      19. 'laufwerk wurde in der liste nicht gefunden und ist somit neu
      20. MessageBox.Show("Neuer Datenträger erkannt = " & s)
      21. 'laufwerk jetzt zur liste hinzufügen
      22. allDrives.Add(New DriveInfo(s))
      23. End If
      24. Next
      25. End If
      26. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = DBT_DEVICEREMOVECOMPLETE Then
      27. 'alle laufwerke aus der liste prüfen
      28. Dim temp As List(Of DriveInfo) = GetAllDrives()
      29. For Each d As DriveInfo In allDrives
      30. find_driveinfo_arg = d.Name
      31. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
      32. If lost Is Nothing Then
      33. 'laufwerk wurde in der liste nicht mehr gefunden
      34. MessageBox.Show("Datenträger wurde entfernt = " & d.Name)
      35. 'laufwerk aus der liste entfernen
      36. allDrives.Remove(d)
      37. 'schleife verlassen
      38. Exit For
      39. End If
      40. Next
      41. End If
      42. End Sub
      44. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      45. allDrives = GetAllDrives()
      46. End Sub
      48. Private Function GetAllDrives() As List(Of DriveInfo)
      49. Dim ret As New List(Of DriveInfo)
      50. 'und wieder befüllen
      51. For Each d As String In Directory.GetLogicalDrives
      52. ret.Add(New DriveInfo(d))
      53. Next
      54. Return ret
      55. End Function
      57. 'suchfunktion zum finden der laufwerke in der collection
      58. Private find_driveinfo_arg As String
      59. Private Function find_driveinfo(ByVal d As DriveInfo)
      60. If d.Name = find_driveinfo_arg Then
      61. Return True
      62. Else
      63. Return False
      64. End If
      65. End Function
      66. End Class

      Kommentare erwünscht

      EDIT:
      Laufwerksbuchstabe wird nun ausgegeben (beim Hinzufügen und Entfernen des Laufwerks)

      Gruss

      mikeb69

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „mikeb69“ ()

      Bei AndAlso wird der 2te Teil nur ausgeführt, wenn der 1te Teil bereits wahr ist. Das ganze ist quasi eine Optimierung im Quelltext, weil man sich u.U. den 2ten Teil spart. AndAlso hat also das gleiche Verhalten wie das "normale" && in C/C++.

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

      Ich dachte das ist damit man die Variable nicht ständig wiederholen muss:

      VB.NET-Quellcode

      1. If Var = 1 Or Var = 2 Then
      2. If Var = 1 OrElse 2 Then
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

      Hier ist das ganze noch ausführlicher, also auch mit Laufwerksbuchstaben:
      Hinzufügen und Entfernen von USB-Wechselmedien erkennen
      Gruß, Agent Smith 8-)

      activeFlags = (lazy OR weary)

      Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

      hallo denny
      hallo agent,

      ich hab den code ein wenig umgebaut, sodass man die driveinfo des laufwerks erhält.
      aus der driveinfo kann man dann den laufwerkstyp, laufwerksbuchstabe usw. auslesen

      gruss

      mikeb69

      Auch wenn das Thema schon recht alt ist, habe ich das zwecks Ausbau nochmal neu aufgegriffen:
      Dank der Hilfe von Mikeb69 ist es mir gelungen, sein Beispiel so in eine Klasse zu verpacken, dass man nur noch das Handle übergeben muß, um an die WindowsMesage zu kommen.
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class ClsDrivewatcher
      4. Inherits System.Windows.Forms.NativeWindow
      6. 'Konstanten für Windowsmessages
      7. Private Const WM_DEVICECHANGE As Integer = &H219
      8. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
      9. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
      11. 'Events
      12. Public Event WinProc(ByVal sender As ClsDrivewatcher, ByRef m As Message)
      13. Public Event Drive_Neu(ByVal DI As DriveInfo)
      14. Public Event Drive_entfernt(ByVal DN As String)
      16. Private allDrives As New List(Of DriveInfo)
      17. Public Sub New(ByVal Handle As IntPtr)
      18. 'übergibt dem NativeWindow das Handle
      19. MyBase.AssignHandle(Handle)
      20. 'Listet alle Laufwerke in allDrives
      21. allDrives = GetAllDrives()
      22. End Sub
      24. 'Ausgabemöglichkeit für Laufwerkliste
      25. Public Function Getdrives() As List(Of DriveInfo)
      26. Return allDrives
      27. End Function
      29. 'WinProc-Methode des übergebenen Handles
      30. Protected Overrides Sub WndProc(ByRef msg As Message)
      31. 'gibt die OriginalMessage an übergebenes Handles weiter
      32. MyBase.WndProc(msg)
      33. 'Event für externe Auswertung der Message
      34. RaiseEvent WinProc(Me, msg)
      35. 'Wenn ein Laufwerk gewechselt und ein neues Laufwerk erkannt wurde
      36. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEARRIVAL, IntPtr) Then
      37. 'alle laufwerke durchlaufen und in der liste suchen
      38. For Each s As String In Directory.GetLogicalDrives
      39. find_driveinfo_arg = s
      40. Dim d As DriveInfo = allDrives.Find(AddressOf find_driveinfo)
      41. If d Is Nothing Then
      42. d = New DriveInfo(s)
      43. 'laufwerk wurde in der liste nicht gefunden und ist somit neu
      44. 'MessageBox.Show("Neuer Datenträger erkannt = " & d.Name)
      45. 'laufwerk jetzt zur liste hinzufügen
      46. allDrives.Add(d)
      47. 'Event auslösen
      48. RaiseEvent Drive_Neu(d)
      49. End If
      50. Next
      51. End If
      52. 'Wenn ein Laufwerk gewechselt und ein Laufwerk entfernt wurde
      53. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then
      54. 'alle laufwerke aus der liste prüfen
      55. Dim temp As List(Of DriveInfo) = GetAllDrives()
      56. For Each d As DriveInfo In allDrives
      57. find_driveinfo_arg = d.Name
      58. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
      59. If lost Is Nothing Then
      60. 'laufwerk wurde in der liste nicht mehr gefunden
      61. 'MessageBox.Show("Datenträger wurde entfernt = " & d.Name)
      62. 'Event auslösen
      63. RaiseEvent Drive_entfernt(d.Name)
      64. 'laufwerk aus der liste entfernen
      65. allDrives.Remove(d)
      66. 'schleife verlassen
      67. Exit For
      68. End If
      69. Next
      70. End If
      71. End Sub
      73. 'Funktion zum Auflisten der Laufwerke
      74. Private Function GetAllDrives() As List(Of DriveInfo)
      75. Dim ret As New List(Of DriveInfo)
      76. 'und wieder befüllen
      77. For Each d As String In Directory.GetLogicalDrives
      78. ret.Add(New DriveInfo(d))
      79. Next
      80. Return ret
      81. End Function
      83. 'suchfunktion zum finden der laufwerke in der collection
      84. Private find_driveinfo_arg As String
      85. Private Function find_driveinfo(ByVal d As DriveInfo) As Boolean
      86. If d.Name = find_driveinfo_arg Then
      87. Return True
      88. Else
      89. Return False
      90. End If
      91. End Function
      93. End Class
      Die Klasse kann nun einfach wie im folgenden Beispiel instanziert werden und bietet Events für die Rückmeldung Laufwerk hinzugefügt/entfernt.
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Imports System.IO
      3. Public Class Testform
      4. 'Instanzierung mit Fensterhandle
      5. Dim Drivewatcher As New ClsDrivewatcher(Me.Handle)
      7. Private Sub Testform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      8. 'Events adden
      9. AddHandler Drivewatcher.Drive_Neu, AddressOf LW_erkannt
      10. AddHandler Drivewatcher.Drive_entfernt, AddressOf LW_entfernt
      11. End Sub
      13. 'Event Laufwerk neu
      14. Private Sub LW_erkannt(ByVal DI As DriveInfo)
      15. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde hinzugefügt, Label = {1} ", DI.Name, DI.VolumeLabel))
      16. Debug.WriteLine(String.Format("Type: {0};frei: {1} von {2}", DI.DriveType, DI.TotalFreeSpace, DI.TotalSize))
      17. End Sub
      19. 'Event Laufwerk entfernt
      20. Private Sub LW_entfernt(ByVal Name As String)
      21. Debug.WriteLine(String.Format("Laufwerk {0}:\ wurde entfernt ", Name))
      22. End Sub
      23. End Class
      Damit wird dann der Form-Code nicht mehr so zugemüllt.
      :thumbsup: Seit 26.Mai 2012 Oppa! :thumbsup:

      Dieser Code hat mich interessiert, aber leider funktioniert er bei mir nicht. Ich bei den Abfragen einen Haltepunkt gesetzt, der USB-Stick angesteckt und angesteckt. Aber keiner der Haltepunkt hat angeschlagen. Ich verwende den haargleichen Code von @mikeb69
      Grüße,
      Lukas

      Fragen über Themen im Forum per Konversation werden gelöscht und die Absender blockiert...

      Bei mir funktioniert der Code, nachdem ich 3 kleine Änderungen vorgenommen habe (ich habe grundsätzlich "STRICT ON":

      Neue Zeile 13:

      VB.NET-Quellcode

      1. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEARRIVAL, IntPtr) Then


      Neue Zeile 26:

      VB.NET-Quellcode

      1. If msg.Msg = WM_DEVICECHANGE AndAlso msg.WParam = CType(DBT_DEVICEREMOVECOMPLETE, IntPtr) Then


      Neue Zeile 59:

      VB.NET-Quellcode

      1. Private Function find_driveinfo(ByVal d As DriveInfo) As Boolean


      Beim Einstecken eines USB-Sticks erfolgt sofort eine Meldung mit Laufwerksangabe. Beim Abmelden des Sticks (Gerät entfernen) erfolgt korrekt die Meldung:"Datenträger wurde entfernt = F:\"
      Das Leben ist nicht so kompliziert. Eine süsse Erinnerung tut's.
      Indiana Jocutus - Jäger des Variablen-Schatzes

      Moin,

      ich weiß das das Thema schon alt ist ;) aber es ist genau das was ich benötige .
      Das Script funktioniert für USB super!

      Hat jemand einen Tipp wie ich es erweitern kann bzw was ich ändern müsste damit auch eine SC-Card (Anschluß über einen USB Card-Reader) erkannt wird ?


      VG
      Lupo

      @lupo76 Willkommen im Forum. :thumbup:
      Der Code erkennt zunächst mal eine ganze Menge, die Kunst besteht darin, das, was man nicht sehen will, gar nicht erst zuzulassen.
      Teste mit diesem Code (Form, RichTextBox):

      VB.NET-Quellcode

      1. Public Class Form1
      2. Private Const WM_DEVICECHANGE As Integer = &H219
      3. Private Const DBT_DEVICEARRIVAL As Integer = &H8000
      4. Private Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
      5. Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
      6. MyBase.WndProc(msg)
      7. Dim wParam = msg.WParam.ToInt32()
      8. If msg.Msg = WM_DEVICECHANGE Then
      9. If wParam = DBT_DEVICEARRIVAL Then
      10. Me.RichTextBox1.AppendText("Neues Gerät" & Environment.NewLine)
      11. ElseIf wParam = DBT_DEVICEREMOVECOMPLETE Then
      12. Me.RichTextBox1.AppendText("Gerät abgezogen" & Environment.NewLine)
      13. End If
      14. End If
      15. End Sub
      16. End Class
      =======================
      @mikeb69 Dein Code ist Strict Off ;)
      Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
      Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
      Ein guter .NET-Snippetkonverter (der ist verfügbar).
      Programmierfragen über PN / Konversation werden ignoriert!

      Wow, danke für die schnelle Antwort!
      Leider löst es mein Problem nicht.
      Da der Card-Reader am PC bleibt scheint des kein Event (oder ein anderes?) mehr zu geben was sagt SD-Card eingesteckt bzw entfernt.

      Wenn ich die SD-Card inkl. Card-Reader einstecke und entferne funktionieren die Scripte.

    Facebook
    Telefonspende