Detect external disk drive ...

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    Detect external disk drive ...

    Hi,

    ich habe an meinem PC interne Festplatten (z.Teil als Partition der Systemresidenz mit festem Laufwerksbuchstaben), externe Festplatten über USB, und auch USB Sticks ...

    Jetzt würde ich gern herausfinden, ob ein Laufwerksbuchstabe auf eine externe Festplatte verweist. Hier mein Code:

    VB.NET-Quellcode

    1. 'Load drive list
    2. Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
    3. For Each d As DriveInfo In allDrives
    4. Debug.Print("d.Name=" & d.Name)
    5. If d.IsReady Then
    6. Debug.Print("d.VolumeLabel=" & d.VolumeLabel & NewLine &
    7. "d.DriveType=" & d.DriveType.ToString & NewLine &
    8. "d.DriveFormat=" & d.DriveFormat & NewLine &
    9. "d.Root=" & d.RootDirectory.Name & NewLine &
    10. "d.=IsReady" & d.IsReady.ToString & NewLine)
    12. Dim t = d.GetType()
    13. Debug.Print("t.Attributs=" & t.Attributes.ToString & NewLine &
    14. "t.BaseType=" & t.BaseType.ToString & NewLine)
    15. Else
    16. Debug.Print("")
    17. End If


    Die Ausgabe sieht wie folgt aus:

    d.Name=C:\
    d.VolumeLabel=WINRES
    d.DriveType=Fixed
    d.DriveFormat=NTFS
    d.Root=C:\
    d.=IsReadyTrue

    t.Attributs=AutoLayout, AnsiClass, Class, Public, Sealed, Serializable, BeforeFieldInit
    t.BaseType=System.Object

    d.Name=E:\
    d.VolumeLabel=ETOSH
    d.DriveType=Fixed
    d.DriveFormat=NTFS
    d.Root=E:\
    d.=IsReadyTrue

    t.Attributs=AutoLayout, AnsiClass, Class, Public, Sealed, Serializable, BeforeFieldInit
    t.BaseType=System.Object

    d.Name=G:\
    d.VolumeLabel=EXTUSB
    d.DriveType=Removable
    d.DriveFormat=FAT32
    d.Root=G:\
    d.=IsReadyTrue

    t.Attributs=AutoLayout, AnsiClass, Class, Public, Sealed, Serializable, BeforeFieldInit
    t.BaseType=System.Object

    Quellcode



    C: ist eine interne Festplatte, F: ist eine externe Festplatte udn G: ist ein USB Stick.

    Den USB Stick erkenne ich an "d.DriveType=Removable"

    Aber soviel ich auch suche ... ich finde keine Unterscheidung zwischen einer internen Festplatte (bzw. Partition) und einem externen Laufwerk.

    Ein paar Attribute, die man mit Gettype bekommt, habe ich spaßeshalber ausgegeben ... aber wie man sieht ist da nix Brauchbares dabei ...

    Kann jemand meine Suche abkürzen ? Vielleicht gibt es ja auch keine Unterscheidung ... damit könnte ich zur Not leben, schließlich kenne ich die Label meiner Festplatten einigermaßen ... :)

    Aber schöner wäre das schon, wenn ich das per Programm ermitteln könnte.

    LG
    Peter

    @Peter329 Ich detektiere USB-Laufwerke beim An- bzw. abstecken, also nach Starten des Programms:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. 'Button und Multiline-TextBox
    3. Imports System.IO
    5. Public Class Form1
    6. ''' <summary>
    7. ''' Liste der aktuell vorhandenen Laufwerke
    8. ''' </summary>
    9. ''' <remarks></remarks>
    10. Private allDrives As New List(Of DriveInfo)
    11. Private DriveNameToFind As String
    13. Public Sub New()
    14. Me.InitializeComponent()
    15. Me.allDrives = DriveInfo.GetDrives().ToList()
    16. End Sub
    18. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    19. Me.TextBox1.Clear()
    20. End Sub
    22. Protected Overloads Overrides Sub WndProc(ByRef msg As Message)
    23. MyBase.WndProc(msg)
    25. Const WM_DEVICECHANGE As Integer = &H219
    26. Const DBT_DEVICEARRIVAL As Integer = &H8000
    27. Const DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    28. Const DBT_DEVNODES_CHANGED As Integer = 7
    30. Dim wParam As Integer = msg.WParam.ToInt32()
    31. If msg.Msg = WM_DEVICECHANGE Then
    32. If wParam = DBT_DEVICEARRIVAL Then
    33. 'Laufwerke suchen
    34. For Each drive As String In Directory.GetLogicalDrives
    35. Me.DriveNameToFind = drive
    36. Dim found As DriveInfo = Me.allDrives.Find(AddressOf find_driveinfo)
    37. If found Is Nothing Then
    38. found = New DriveInfo(drive)
    39. Me.TextBox1.AppendText(String.Format("Ein USB-Gerät wurde hinzugefügt: {0}{1}", found.VolumeLabel, Environment.NewLine))
    40. 'Laufwerk ist neu, Laufwerk zu "bereits vorhanden" hinzufügen
    41. Me.allDrives.Add(found)
    42. End If
    43. Next
    44. ElseIf wParam = DBT_DEVICEREMOVECOMPLETE Then
    45. ' alle Laufwerke aus der Liste prüfen
    46. Dim temp As List(Of DriveInfo) = DriveInfo.GetDrives().ToList()
    47. For Each drive As DriveInfo In Me.allDrives
    48. Me.DriveNameToFind = drive.Name
    49. Dim lost As DriveInfo = temp.Find(AddressOf find_driveinfo)
    50. If lost Is Nothing Then
    51. Me.TextBox1.AppendText(String.Format("Ein USB-Gerät wurde entfernt: {0}{1}", drive.Name, Environment.NewLine))
    52. 'Laufwerk wird in der Liste nicht mehr gefunden: Laufwerk aus der Liste löschen
    53. Me.allDrives.Remove(drive)
    54. Exit For
    55. End If
    56. Next
    57. ElseIf wParam = DBT_DEVNODES_CHANGED Then
    58. Me.TextBox1.AppendText("Ein USB-Gerät wurde gesteckt / entfernt." & Environment.NewLine)
    59. End If
    60. End If
    61. End Sub
    63. ' Suchfunktion für die Liste, da eine Property verglichen wird
    64. Private Function find_driveinfo(ByVal drive As DriveInfo) As Boolean
    65. Return drive.Name = Me.DriveNameToFind
    66. End Function
    67. End Class
    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!

    Zusammengeschustert von stackoverflow, um nur die USB-Festplatten rauszubekommen:

    VB.NET-Quellcode

    1. Dim LettersOfUsbDrives As New List(Of Char)
    2. Dim ManagementObjectSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE InterfaceType='USB'")
    3. For Each QueryObject As ManagementObject In ManagementObjectSearcher.Get()
    4. For Each DiskPartitionObject As ManagementObject In QueryObject.GetRelated("Win32_DiskPartition")
    5. For Each LogicalDiskObject As ManagementObject In DiskPartitionObject.GetRelated("Win32_LogicalDisk")
    6. LettersOfUsbDrives.Add(LogicalDiskObject("name").ToString(0))
    7. Next
    8. Next
    9. Next
    11. For Each Drive In IO.DriveInfo.GetDrives().Where(Function(x) x.IsReady AndAlso x.DriveType = IO.DriveType.Fixed AndAlso LettersOfUsbDrives.Contains(x.Name(0)))
    12. MessageBox.Show(Drive.Name & " scheint eine externe Festplatte zu sein.")
    13. Next
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    erst mal vielen Dank für deinen Spoiler.

    Das Programm ist prima, wenn man feststellen will, ob USB Laufwerke hinzugefügt oder entfernt wurden. Klasse !

    Aber leider trifft das nicht ganz mein Problem.

    Ich will wissen, ob ein Laufwerk vom DriveType=Fixed eine eingebaute Festplatte / eine Partition einer Festplatte ist ODER ob es sich um eine externe Festplatte handelt, die über einen USB Port "angesteckt" ist. Beide haben blöderweise den GLEICHEN DriveType=Fixed .... und ich sehe auch sonst keinerlei Merkmale, die eine Unterscheidung erlauben würden.

    Warum ich das wissen will ? Na ja, die Routine ist Teil eines BackupProgramms (Incremetal Backup für Verzeichnisbäume) ... und da wäre es ja nicht gut, wenn das Sicherungsmedium ein "internes" Laufwerk ist. In diesem Fall würde ich gern eine Warnung ausgeben. Denn wenn der PC abbrennt oder gestohlen wird etc. etc., dann sind sowohl die Source als auch die Backup Daten weg. Natürlich kann ich einfach sagen, dass der Anwender eben "schlau" genug sein muss, um ein "vernünftiges" (also kein internes) Ziellaufwerk auszuwählen ... aber man kann sich halt auch leicht "verklicken" ... Und das merkt man dann möglicherweise erst im Schadensfall ! Eine Warnung wäre also schon nicht gar so schlecht ...

    Ich hoffe, ich habe mein Problem verständlich machen können. Umgehen kann ich das Problem alle mal, indem ich halt eine Liste der VolumeLabel der internen Laufwerke "von Hand" fest einprogrammiere ... aber das ist halt eine ziemlich blöde Lösung !

    LG
    Peter

    [edit]
    P.S.: Den Beitrag von @VaporiZed habe ich erst nach Absenden meines Posts gelesen ... das problere ich jetzt aus ...

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Peter329“ ()

    @VaporiZed Wenn ich eine externe USB-Platte "normal" an einem USB-Port anschließe, wird sie erkannt.
    Schließe ich eine externe USB-Platte über ein QuickPort XT HC PRO an, wird die nicht erkannt.
    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!

    Peter329 schrieb:

    Das Programm
    ist das von RfG oder das Snippet von mir? Ok, hat sich geklärt. Damit war RfGs Code gemeint.
    Wird denn mit meinem dem von mir geposteten Snippet die externe HDD/SSD als solche erkannt oder nicht? Oder wird da noch anderes Zeug erkannt? Es ist ja ne Anzeige von Übereinstimmungen aus USB-Laufwerken und Festplatten.
    @RodFromGermany: Da kann ich nur hoffe, dass @Peter329 so'n Teil nicht hat :rolleyes: . Nee, Spassssss beiseite. Wird das Teil an sich als Gerät erkannt? Weil: Die HDD ist ja über SATA wahrscheinlich an die Docking Station gebunden, oder?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Mein Kommentar bezog sich auf das Snippet von VaporiZed.

    VaporiZed schrieb:

    Die HDD ist ja über SATA wahrscheinlich an die Docking Station gebunden, oder?
    Weiß ich nicht genau, das Ding hängt an einem USB-Port am Rechner, da stecke ich meine "losen" externen Platten dran; hat mir mein Sohn geschenkt, ich hab mich nicht mit dessen "innenleben" beschäftigt.
    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!

    Also die Routine von @VaporiZed funktioniert prima.

    Allein die Message " scheint eine externe Festplatte zu sein." nährt nicht gerade meine Vertrauen in die Zuverlässigkeit der Routine ...

    Ich hab die Sache jetzt noch ein bissl umgemodelt, denn ich will natürlich neben externen Festplatten auch USB Sticks als Speichermedium zulassen ...

    VB.NET-Quellcode

    1. 'Load drive list
    2. Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
    3. Dim myDeviceType As String
    4. For Each d As DriveInfo In allDrives
    5. If Not d.IsReady Then Continue For
    6. Select Case d.DriveType
    7. Case IO.DriveType.Fixed
    8. myDeviceType = If(LettersOfUsbDrives.Contains(d.Name(0)), "EXT", "INT")
    9. Case IO.DriveType.Removable : myDeviceType = "USB"
    10. Case Else : Continue For
    11. End Select
    12. dgv.Rows.Add(myDeviceType,
    13. d.Name,
    14. d.VolumeLabel,
    15. d.RootDirectory.Name)
    16. Next


    Funktioniert in meiner hausbackenen Umgebung bisher fehlerfrei.

    Vielen Dank an die Ratgeber und Daumen hoch ! :)

    LG
    Peter

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

    Moin moin

    Ich hatte mal das mit Eurer Hilfe gemacht, weil ich eigentlich SD-Karten ermitteln wollte.
    Weiß jetzt nicht ob das dem gesuchten entspricht.
    Suche gerade nach dem Code auf meiner Backupplatte.

    Edit: Der Code
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports System
    3. Imports System.Management
    4. Imports System.Windows.Forms
    6. Public Class Frm_Laufwerke
    7. Public strResult As String
    8. Public strName As String
    9. Public strSize As String
    10. Public strfSize As String
    11. Public strLWb As String
    12. Public strDeviceID As String
    13. Private Sub optionen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    14. getusbdrive()
    15. End Sub
    17. Public Sub getusbdrive()
    18. Try 'Interne Festplatten
    19. Dim propName1() As String = "DeviceID SerialNumber Name".Split
    20. Dim query1() As String = {"SELECT * FROM Win32_DiskDrive WHERE MediaType='Fixed hard disk media'", "", "", ""}
    21. For Each drive As ManagementObject In New ManagementObjectSearcher(query1(0)).Get
    22. query1(1) = String.Format("ASSOCIATORS OF {0}Win32_DiskDrive.DeviceID='{2}'{1} WHERE AssocClass = Win32_DiskDriveToDiskPartition", "{", "}", drive(propName1(0)).ToString)
    23. For Each partition As ManagementObject In New ManagementObjectSearcher(query1(1)).Get
    24. query1(2) = String.Format("ASSOCIATORS OF {0}Win32_DiskPartition.DeviceID='{2}'{1} WHERE AssocClass = Win32_LogicalDiskToPartition", "{", "}", partition(propName1(0)).ToString)
    25. For Each disk As ManagementObject In New ManagementObjectSearcher(query1(2)).Get
    26. strLWb = disk(propName1(2)).ToString
    27. strResult = (strLWb.Substring(0, 1))
    28. Dim info As IO.DriveInfo = New IO.DriveInfo(strResult)
    29. strName = info.VolumeLabel
    30. strfSize = convert(CDbl(info.TotalFreeSpace), "0.00")
    31. strSize = convert(CDbl(info.TotalSize), "0.00")
    32. lv_inhdds.Items.Add(New ListViewItem({strLWb, strName, strSize, strfSize}))
    33. Next
    34. Next
    35. Next
    36. 'Externe USB Festplatten
    37. Dim propName() As String = "DeviceID SerialNumber Name".Split
    38. Dim query() As String = {"SELECT * FROM Win32_DiskDrive WHERE MediaType='External hard disk media'", "", "", ""}
    39. For Each drive As ManagementObject In New ManagementObjectSearcher(query(0)).Get
    40. query(1) = String.Format("ASSOCIATORS OF {0}Win32_DiskDrive.DeviceID='{2}'{1} WHERE AssocClass = Win32_DiskDriveToDiskPartition", "{", "}", drive(propName(0)).ToString)
    41. For Each partition As ManagementObject In New ManagementObjectSearcher(query(1)).Get
    42. query(2) = String.Format("ASSOCIATORS OF {0}Win32_DiskPartition.DeviceID='{2}'{1} WHERE AssocClass = Win32_LogicalDiskToPartition", "{", "}", partition(propName(0)).ToString)
    43. For Each disk As ManagementObject In New ManagementObjectSearcher(query(2)).Get
    44. strLWb = disk(propName(2)).ToString
    45. strResult = (strLWb.Substring(0, 1))
    46. Dim info As IO.DriveInfo = New IO.DriveInfo(strResult)
    47. strName = info.VolumeLabel
    48. strfSize = convert(CDbl(info.TotalFreeSpace), "0.00")
    49. strSize = convert(CDbl(info.TotalSize), "0.00")
    50. lsv_usbhdds.Items.Add(New ListViewItem({strLWb, strName}))
    51. Next
    52. Next
    53. Next
    54. 'Externe USB Sticks und Externe SD-Card-Reader
    55. Dim propName3() As String = "DeviceID SerialNumber Name".Split
    56. Dim query3() As String = {"SELECT * FROM Win32_DiskDrive WHERE MediaType='Removable media'", "", "", ""}
    57. For Each drive As ManagementObject In New ManagementObjectSearcher(query3(0)).Get
    58. 'Dim strLWb As String
    59. query3(1) = String.Format("ASSOCIATORS OF {0}Win32_DiskDrive.DeviceID='{2}'{1} WHERE AssocClass = Win32_DiskDriveToDiskPartition", "{", "}", drive(propName3(0)).ToString)
    60. For Each partition As ManagementObject In New ManagementObjectSearcher(query3(1)).Get
    61. query3(2) = String.Format("ASSOCIATORS OF {0}Win32_DiskPartition.DeviceID='{2}'{1} WHERE AssocClass = Win32_LogicalDiskToPartition", "{", "}", partition(propName3(0)).ToString)
    62. For Each disk As ManagementObject In New ManagementObjectSearcher(query3(2)).Get
    63. strLWb = disk(propName3(2)).ToString
    64. strResult = (strLWb.Substring(0, 1))
    65. Dim info As IO.DriveInfo = New IO.DriveInfo(strResult)
    66. strName = info.VolumeLabel
    67. strfSize = convert(CDbl(info.TotalFreeSpace), "0.00")
    68. strSize = convert(CDbl(info.TotalSize), "0.00")
    69. lsv_usbdrive.Items.Add(New ListViewItem({strLWb, strName}))
    70. Next
    71. Next
    72. Next
    73. Catch ex As Exception
    74. End Try
    75. End Sub
    76. Public Function convert(ByVal dblbytes As Double, ByVal strconverted As String) As String
    77. Dim arrPosForm() As String = {"Bytes", "Kilobyte", "Megabyte", "Gigabyte", "Terabyte"}
    78. For i As Integer = arrPosForm.Length - 1 To 0 Step -1
    79. If dblbytes > 1024 ^ i Then
    80. dblbytes /= 1024 ^ i
    81. Return dblbytes.ToString(strconverted) & " " &
    82. arrPosForm(i)
    83. End If
    84. Next i
    85. Return dblbytes.ToString(strconverted) & " Bytes"
    86. End Function
    87. End Class

    Bilder

    • USBHDD-1.jpg

      133,58 kB, 498×479, 47 mal angesehen
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

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

    Peter329 schrieb:

    Allein die Message " scheint eine externe Festplatte zu sein." nährt nicht gerade meine Vertrauen in die Zuverlässigkeit der Routine
    Ich hätte den Text auch anders formulieren können. Das Problem ist nur: Ich hab bei mir nicht allzu viele Laufwerke, um alles exzessiv zu testen. Daher hab ich die Formulierung etwas vorsichtig gehalten.

    btw:

    VB.NET-Quellcode

    1. For Each d As DriveInfo In allDrives
    2. If Not d.IsReady Then Continue For
    Solche Dinger änder ich gern zu For Each d As DriveInfo In allDrives.Where(Function(x) x.IsReady)
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende