Usb geräte auflisten mit Laufwerksname

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Dr_Wesker.

    Usb geräte auflisten mit Laufwerksname

    moin moin ich habe ein problem ich habe einen code der mir zeigen soll wie die laufwerke heißen und wie viel freien speicher die noch haben sollen.

    vielleicht könnt ihr mir helfen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim inf As String = ""
    3. For Each di As IO.DriveInfo In IO.DriveInfo.GetDrives
    4. If di.IsReady Then
    5. inf &= "Freespace:" & di.TotalFreeSpace \ 1048576 & "MB" & vbCrLf
    8. End If
    9. Next
    10. Label1.Text = inf
    11. End Sub

    Einfach mal die Properties von DriveInfo durchklickern:
    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!

    Ich benutz die gleiche Funktion, aber:
    › Inf benötige ich nicht
    › Stattdessen nehm ich

    VB.NET-Quellcode

    1. ListBox1.Items.Add("Name:" & di.Info.VolumeLabel)

    Könntest auch mal versuchen.

    Edit://

    VB.NET-Quellcode

    1. Dim Drive As IO.DriveInfos
    2. For Each Drive In IO.DriveInfos.GetDrives
    4. If Drive.DriveType = IO.DriveType.CdRom'Hier kannst du auch andere auswählen
    6. If Drive.IsReady Then 'Überprüft, ob Drive "Ready" ist :-)
    7. ListBox1.Items.Add("Name: " & Drive.VolumeLabel)
    9. Else
    10. 'Wenn nicht bereit, dann dass:
    11. ListBox.Items.Add(Drive.VolumeLabel & "[Nicht Bereit]"
    12. End If
    13. End If
    14. Next

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „ChipPRO Österreich“ ()

Facebook
Telefonspende