Hallo,
ich komme zur Zeit nicht weiter. Ich möchte eine Liste nach einem Eintrag durchsuchen. Danach soll der nächste Eintrag ersetzt werden.
Hier mal der Code:
Mein Problem ist in Zeile 12? Ohne diese Zeile läuft alles durch, mit dieser Zeile bricht die Schleife einfach ab und das Modul wird beendet (ohne Fehlermeldung). Wo ist da der Fehler?
MFG Ignus
ich komme zur Zeit nicht weiter. Ich möchte eine Liste nach einem Eintrag durchsuchen. Danach soll der nächste Eintrag ersetzt werden.
Hier mal der Code:
VB.NET-Quellcode
- Option Strict On
- Module Daten
- Sub VerzRdy(X As List(Of String))
- Dim Found As Boolean = False
- Dim I As Integer = 0
- For Each Stri In X
- If Found Then 'nächster Eintrag
- For Each Drive In IO.DriveInfo.GetDrives
- If Drive.IsReady Then
- If IO.Directory.Exists(Drive.ToString & Stri) Then
- MsgBox("found" & " " & Drive.ToString & Stri)
- X(I) = (Drive.ToString & Stri) 'das macht Probleme - I ist in dem Fall 7
- End If
- End If
- Next
- Found = False
- End If
- If Stri.Contains("01") Then
- Found = True
- End If
- I = I + 1
- Next
- 'X(7) = "wert" 'Nur ein Test - das funktioniert
- For Each S In X
- MsgBox(S)
- Next
- End Sub
- End Module
Mein Problem ist in Zeile 12? Ohne diese Zeile läuft alles durch, mit dieser Zeile bricht die Schleife einfach ab und das Modul wird beendet (ohne Fehlermeldung). Wo ist da der Fehler?
MFG Ignus