Structure strucFileInfo
   Implements IEquatable(Of strucFileInfo)
 
   Public Property path As String
   Public Property Name As String
   Public Property Erstellung As Date
   Public Property Änderung As Date
 
   Public Function Equals1(ByVal other As strucFileInfo) As Boolean _
        Implements System.IEquatable(Of strucFileInfo).Equals
 
        If other.Name.ToUpper = Me.Name.ToUpper And _
            other.path.ToUpper = Me.path.ToUpper Then Return True
        Return False
   End Function
 
   Public Overrides Function GetHashCode() As Integer
       Dim hashName As Integer = _
         If(Name Is Nothing, 0, Name.toupper.GetHashCode())
 
       Dim hashPath As Integer = _
         If(path Is Nothing, 0, path.toupper.GetHashCode())
            Return hashName Xor hashPath
   End Function
End Structure