Hallo,
ich erstelle eine ListBox1 aus Dateinamen, alle 20 Sekunden erstelle ich eine neue Liste Dateinamen und vergleiche mit der ListBox1, wenn ein Eintrag nicht enthalten ist, soll er in die Listbox2 kommen. ListBox1 wird anschließend überschrieben mit der neuen Liste Dateien. Nur schreibt er mir hier immer alle Items in ListBox2, ich denke mal ich hab Contains nicht richtig verwendet.
Also er schreibt auch Files in ListBox2 die schon in ListBox1 stehen.
Kontextcode:
Spoiler anzeigen
ich erstelle eine ListBox1 aus Dateinamen, alle 20 Sekunden erstelle ich eine neue Liste Dateinamen und vergleiche mit der ListBox1, wenn ein Eintrag nicht enthalten ist, soll er in die Listbox2 kommen. ListBox1 wird anschließend überschrieben mit der neuen Liste Dateien. Nur schreibt er mir hier immer alle Items in ListBox2, ich denke mal ich hab Contains nicht richtig verwendet.
Also er schreibt auch Files in ListBox2 die schon in ListBox1 stehen.
Kontextcode:
VB.NET-Quellcode
- Public strpath As String
- Public objPath As DirectoryInfo
- Public arroFilesneu As FileInfo()
- Public arroFilesalt As FileInfo()
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- strpath = "C:\pfad"
- objPath = New DirectoryInfo(strpath)
- Timer1.Interval = 20000
- Timer1.Start()
- arroFilesalt = objPath.GetFiles()
- For i = 0 To UBound(arroFilesalt)
- ListBox1.Items.Add(arroFilesalt(i))
- Next i
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- arroFilesneu = objPath.GetFiles()
- ListBox2.Items.Clear()
- For i = 0 To UBound(arroFilesneu)
- If Not ListBox1.Items.Contains(arroFilesneu(i)) Then
- ListBox2.Items.Add(arroFilesneu(i))
- End If
- Next i
- ListBox1.Items.Clear()
- For i = 0 To UBound(arroFilesneu)
- ListBox1.Items.Add(arroFilesneu(i))
- Next i
- ...
- End Sub