Index: TECH/impl/FileUtils.cls.xml
===================================================================
diff -u -r847 -r849
--- TECH/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 847)
+++ TECH/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 849)
@@ -18,11 +18,35 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set FileReader = ##class(TECH.File.FileReader).%New("E:\Test2\file1.txt")
+	Set FileReader = ##class(TECH.File.FileReader).%New(LocatieBestand)
 	#dim Stream As %Stream = FileReader.GeefStream()
 	Quit ##class(vhUnitTest.Utils).CheckSum(Stream)
 ]]></Implementation>
 </Method>
+
+<Method name="ZijnBestandenInMapGelijk">
+<FormalSpec>Map1:%String,Map2:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Files = ##class(TECH.Files).%New()
+	#dim FilesMap1 As List of TECH.FileInfo = Files.GetFileList(Map1)
+	#dim FilesMap2 As List of TECH.FileInfo = Files.GetFileList(Map2)
+	#dim ZijnGelijk As %Boolean = 1
+	If $Length(FilesMap1)=$Length(FilesMap2) {
+		Set FilesIterator = ##class(TECH.ListIterator).%New(FilesMap1)
+		While(FilesIterator.HasNext()) {
+			#dim Bestand As TECH.FileInfo = FilesIterator.Next()
+			#dim BestandsNaam As %String = ##class(TECH.File).%New().GeefBestandsnaam(Bestand.Name)
+			If '..ZijnBestandenGelijk(Map1_"\"_BestandsNaam, Map2_"\"_BestandsNaam) {
+				Set ZijnGelijk = 0
+			}
+		}
+	} Else {
+		Set ZijnGelijk = 0
+	}
+	Quit ZijnGelijk
+]]></Implementation>
+</Method>
 </Class>