Laufwerk volumen löschen
lima-city → Forum → Programmiersprachen → Programmieren mit .NET & Mono
anzeigen
buchstabe
code
computer
datei
ergebnis
fehler
folgende ausgabe
helfen
item
label
laufwerk
parameter
show
string
system
text
typ
url
zusammenhang
-
Hi
:
ich habe folgende Problem biei VB.net 2010
ich habe Code
LwBox.Items.Add(Drive.Name & " [" & Drive.VolumeLabel & "]")
er liefert folgende Ausgabe z.B
H:[mein Laufwerk]
ich will das ergebniss in ComboBox behalten nur bei
Überprüfung funktioniert nicht weil VolumenLabel mit liest
Dim Lw As Object Lw = LwBox.Text If My.Computer.FileSystem.FileExists(Lw & "Dos\lw.txt") Then
kann mir jemand helfen -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
Das sollte doch einfach zu lösen sein, solange du nur mit den Laufwerksbuchstaben arbeiten willst. Buchstabe impliziert, dass die Länge des Strings immer 1 ist. Dazu noch ":\" anhängen, und den Rest des Dateipfads.
Du kannst also mit der Strings.Left-Methode den Laufwerksbuchstaben aus Deiner Variable Lw herausholen:
https://msdn.microsoft.com/de-de/library/microsoft.visualbasic.strings.left%28v=vs.110%29.aspx
Du müsstest also korrekterweise schreiben
Lw = Left(LwBox.Text, 1) & ":\"
Dann sollte das Ergebnis das gewünschte sein
Im Übrigen sollte Lw wohl vom Typ String sein, und nicht vom Typ Object, nehme ich an.
Beitrag zuletzt geändert: 18.8.2015 16:53:45 von burgi -
ich habe immer noch ein fehler
sorry anfänger!
"Public Property Left As Integer" hat keine Parameter, und der Rückgabetyp kann nicht indiziert werden
Beitrag zuletzt geändert: 18.8.2015 12:14:24 von youtvti -
Ohne den veränderten Code so aus dem Zusammenhang gerissen ist das wohl ein wenig schwierig, dir zu helfen
Hast du jetzt den Datentyp der Variable Lw verändert, oder nicht? -
ja hab ich Dim Lw As String
hier ist komplette cods
Dim Lw As String Dim Lwtext As New Label WithEvents LwBox As New ComboBox WithEvents LwButtonOK As New Button ---Laufwerke suchen--- For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives If Drive.DriveType = IO.DriveType.Removable Then If Drive.IsReady Then ' wenn Gerät bereit, Laufwekrsbuchstabe und VolumeLabel anzeigen LwBox.Items.Add(Drive.Name & " [" & Drive.VolumeLabel & "]") Else ' andernfalls nur Laufwerksbuchstabe anzeigen LwBox.Items.Add(Drive.Name & " [nicht bereit]") End If End If Next ---Datei suchen--- Private Sub LwButtonOK_Click(sender As System.Object, e As System.EventArgs) Handles LwButtonOK.Click Lw = Left(LwBox.Text, 1) & ":\" If My.Computer.FileSystem.FileExists(Lw & "Dos\lw.txt") Then MsgBox("Prima") Else Select Case MessageBox.Show("Auf dieser Laufwerk ist keine Dateien von gefunden" & vbCrLf & "Bitte wählen Sie andere Laufwerk", "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Warning) Case DialogResult.OK End Select End If End Sub
------------------------------------------------------------------------------------------------------------------
OK Ich habe die Lösung
es fehlte "Strings" vor Left
Lw = Strings.Left(LwBox.Text, 1) & ":\"
Danke troztem
Beitrag zuletzt geändert: 18.8.2015 16:31:16 von youtvti -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
