Index: vhTest/Fake/TECH/Files.cls.xml
===================================================================
diff -u
--- vhTest/Fake/TECH/Files.cls.xml	(revision 0)
+++ vhTest/Fake/TECH/Files.cls.xml	(revision 3419)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.TECH.Files">
+<Super>TECH.Files</Super>
+
+<Method name="GetResultSetForDirectory">
+<FormalSpec>Directory:%String,FileMask:%String</FormalSpec>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Quit:(Directory = "c:\directory1") ..GetFakeResultSetForDirectory(2,2)
+	Quit:(Directory = "c:\directory1\directory2") ..GetFakeResultSetForDirectory(3,2)
+	Quit:(Directory = "c:\directory1\directory2\directory3") ..GetFakeResultSetForDirectory(0,1)
+	Quit ..GetFakeResultSetForDirectory(0,0)
+]]></Implementation>
+</Method>
+
+<Method name="GetFakeResultSetForDirectory">
+<FormalSpec>AantalBestanden:%Integer,AantalDirectories:%Integer</FormalSpec>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSetData As %List = ##class(%ListOfDataTypes).%New()
+	#dim ResultSetHeaders as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("ItemName","Type")
+	
+	Do ResultSetHeaders.Insert($listbuild("ItemName","Type"))
+	for i = 1 : 1 : AantalBestanden {
+		Do ResultSetData.Insert($listbuild("bestand"_i,""))
+	}
+	for i = 1 : 1 : AantalDirectories {
+		do ResultSetData.Insert($listbuild("directory"_i,"D"))
+	}
+	
+	Quit ##class(vhTest.Fake.TECH.ResultSet).%New(ResultSetData,ResultSetHeaders)
+]]></Implementation>
+</Method>
+
+<Method name="AddToList">
+<FormalSpec>FullName:%String,rset:%ResultSet</FormalSpec>
+<Implementation><![CDATA[
+
+	quit:'$length(FullName)
+	
+	set Info = ##class(TECH.FileInfo).%New()
+	set Info.Name = FullName
+	set Info.Type = rset.GetDataByName("Type")
+	
+	do ..List.Insert(Info)
+	
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>