Guten Abend,
ich liste in Lb1 Ordner auf und in Lb2 Files. Nun öffnet sich wenn ich auf ein Item klicke immer der Ordner "Dokumente".
Und in Lb2 muss ich bei jedem Item die ersten 32Zeichen löschen. Also For..Each. Nur wie bekomme ich das hin?
Hier der bisherige Code.
Spoiler anzeigen
Spoiler anzeigen
LG
ich liste in Lb1 Ordner auf und in Lb2 Files. Nun öffnet sich wenn ich auf ein Item klicke immer der Ordner "Dokumente".
Und in Lb2 muss ich bei jedem Item die ersten 32Zeichen löschen. Also For..Each. Nur wie bekomme ich das hin?
Hier der bisherige Code.
VB.NET-Quellcode
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- auslesen()
- End Sub
- Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
- ausführen_l1()
- End Sub
- Private Sub ListBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox2.SelectedIndexChanged
- ausführen_l2()
- End Sub
VB.NET-Quellcode
- Private Sub auslesen()
- ListBox1.Items.AddRange(IO.Directory.GetDirectories("C:\Users\Alexander\Desktop\Alles"))
- ListBox2.Items.AddRange(IO.Directory.GetFiles("C:\Users\Alexander\Desktop\Alles"))
- End Sub
- Private Sub ausführen_l2()
- Dim sitem As String = CStr(ListBox1.SelectedItem)
- Try
- Shell("explorer /" & sitem, AppWinStyle.NormalFocus)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- Private Sub ausführen_l1()
- Dim sitem As String = CStr(ListBox1.SelectedItem)
- Try
- Shell("explorer /" & sitem, AppWinStyle.NormalFocus)
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
LG