Private Structure Datei
        Dim Datei As String
        Dim Version As String
    End Structure

Dim test As New List(Of Datei)
Dim ListEintrag As Datei
 
        For Each Dateiinfo In Ordnerinfo.GetFiles("*.*", _
          IO.SearchOption.AllDirectories)
 
 
            For Each ListEintrag In test
 
                If ListEintrag.Datei = Dateiinfo.Name Then
                    test.Remove(ListEintrag)
                End If
            Next
        Next