Index: TECH/Comparator/FileInfoComparator.cls.xml
===================================================================
diff -u
--- TECH/Comparator/FileInfoComparator.cls.xml	(revision 0)
+++ TECH/Comparator/FileInfoComparator.cls.xml	(revision 2700)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Comparator.FileInfoComparator">
+<Super>TECH.RegisteredObject,TECH.Comparator.IComparator</Super>
+
+<Property name="PropertyName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ValueOrder">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PropertyName:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if (##class(TECH.ClassUtils).BestaatProperty("TECH.FileInfo",PropertyName) = 0) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw(PropertyName _" bestaat niet als property voor TECH.FileInfo.")
+	}
+		set ..PropertyName = PropertyName
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsKleinerDan">
+<FormalSpec>Waarde1:%CacheString,Waarde2:%CacheString</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If (..PropertyName = "Name") || (..PropertyName = "Type") {
+		quit $property(Waarde2,..PropertyName) ] $property(Waarde1,..PropertyName)
+	} else {
+		quit $property(Waarde1,..PropertyName) < $property(Waarde2,..PropertyName)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2183 -r2700
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2183)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2700)
@@ -117,6 +117,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BestaatProperty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlasseNaam:%String,PropertyNaam:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#Dim Gevonden As %Boolean = $$$False
+	if ##class(%Dictionary.CompiledClass).%ExistsId(KlasseNaam) {
+		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
+		 set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
+		 while itProperties.HasNext() {
+			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
+			continue:Property.Name="%%OID"
+			continue:Property.Name="E"
+			If (Property.Name=PropertyNaam)
+			{
+				Set Gevonden = $$$True
+				quit
+			}
+		 }
+	}
+	Quit Gevonden
+]]></Implementation>
+</Method>
+
 <Method name="GeefPropertiesRecursief">
 <Description>
 Deze klasse geeft alle properties terug van een klasse, alsook de properties van de properties die geen basistype waren.</Description>