Dim index As Integer = -1
                        For Each f As String In OrdnerProjekte
                            index += 1
                            If f.StartsWith(Folders.SelectedPath.ToString) Then
                                OrdnerProjekte.RemoveAt(index)
                            End If
                        Next

      Dim index As New ArrayList
                        Dim i As Integer = -1
                        For Each f As String In OrdnerProjekte
                            i += 1
                            If f.StartsWith(Folders.SelectedPath.ToString) Then
                                index.Add(i)
                            End If
                        Next
                        For Each del As Integer In index
                            OrdnerProjekte.RemoveAt(del)
                        Next