USB - Stick von Festplatte unterscheiden
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von samuel.
-
-
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Alex2000“ ()
-
-
Hallo,
vielen dank für eure Hilfe,
nun ist es so das ich den gesamten Arbeitsplatz nach Wechseldatendräger durchsuchen möchte,
und diese in eine Listbox einfügen...
Wie kann ich das machen?
So funktionier da ja nicht...
-
test mal das hier
VB.NET-Quellcode
- Public Function ListAllDrives() As String()
- Dim arDrives() As String
- arDrives = Directory.GetLogicalDrives()
- Return arDrives
- End Function
- Public Function Search() As Boolean
- Dim sDrive As String, sDrives() As String, Check As Boolean
- Check = False
- sDrives = ListAllDrives()
- For Each sDrive In sDrives
- If sDrive = DriveType.Removable Then
- Check = True
- Else
- Check = False
- End If
- Next
- Return Check
- End Function
musst nurnoch abfragen of Search() = True ist uznd in der funktion das laufwerk abspeichern in zb my .settings
weiß ent obs geht machs normalerweise anders aber das würde nur bei memstick pro duos gehn -
hallo,ich bekomms einfach nicht hin ...
VB.NET-Quellcode
- Public Function ListAllDrives() As String()
- Dim arDrives() As String
- arDrives = Directory.GetLogicalDrives()
- Return arDrives
- End Function
- Public Function Search() As Boolean
- Dim sDrive As String, sDrives() As String, Check As Boolean
- Check = False
- sDrives = ListAllDrives()
- For Each sDrive In sDrives
- If sDrive = DriveType.Removable Then
- Check = True
- Else
- Check = False
- End If
- Next
- Return Check
- ListBox1.Items.Add(Search)
- End Function
Er bringt immer fehler bei:
If sDrive = DriveType.Removable Then
Der Fehler lautet:
Ungültige Konvertierung von der Zeichenfolge A:\ in Typ Double. -
-
samuel: probiere damit:
VB.NET-Quellcode
- Public Function ListAllDrives() As String()
- Dim arDrives() As String
- arDrives = Directory.GetLogicalDrives()
- Return arDrives
- End Function
- Public Function Search() As Boolean
- Dim sDrive As String, sDrives() As String, Check As Boolean
- Check = False
- sDrives = ListAllDrives()
- For Each sDrive In sDrives
- ListBox.AddItem ( SDrive) '<<<<<< das soll in die Schleife
- If sDrive = DriveType.Removable Then
- Check = True
- Else
- Check = False
- End If
- Next
- Return Check
- End Function
Mfg Alex -
-
-
-
-
-
@steffifant:
In Zeile 11 schreibt er:
Das kann es also meiner Meinung nach nicht sein.
Was ich nun nicht verstehe:
sDrive ist doch als String deklariert. Wieso kommt dann eine Fehlermeldung, dass es nicht nach Double umgewandelt werden kann?
Oder ist DriveType.Removable ein Dobule-Wert? -
-
-
Du versuchst ein String mit einem Enum für DriveTypen zu vergleichen. Das kann nicht funktionieren.
Du musst erst ein DriveInfo-Object erstellen, das kannst du dann mit dem Enum vergleichen
-
-
-
-
Ähnliche Themen
-
Datenbank für Bilder und Videos
cmediapro - - Sonstige Problemstellungen
-
1 Benutzer hat hier geschrieben
- Gast (24)