For Each Dateiinfo In Ordnerinfo.GetFiles("*.*", _
          IO.SearchOption.AllDirectories)
 
            If test.Count > 0 Then
                For i As Integer = test.Count - 1 To 0 Step -1
                    If test(i).Datei = Dateiinfo.Name Then
                        test.RemoveAt(i)
                    End If
 
                Next
            End If
 
        Next