Index: vhTest/Fake/TECH/File/FileUtils.cls.xml
===================================================================
diff -u -r34195 -r34212
--- vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 34195)
+++ vhTest/Fake/TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 34212)
@@ -3,12 +3,39 @@
 <Class name="vhTest.Fake.TECH.File.FileUtils">
 <Super>TECH.File.FileUtils</Super>
 
-<Method name="BestandBestaat">
+<Property name="FileList">
+<Type>TECH.FileInfo</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="FileExists">
 <FormalSpec>FileName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit 1
 ]]></Implementation>
 </Method>
+
+<Method name="GetFileList">
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..FileList
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeFileInfo">
+<FormalSpec>FullName:%String,DateCreated:%Date="",DateModified:%Date="",Size:%Integer=0,Type:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	set Info = ##class(TECH.FileInfo).%New()
+	set Info.Name = FullName
+	set Info.DateCreated = DateCreated
+	set Info.DateModified = DateModified
+	set Info.Size = Size
+	set Info.Type = Type
+	
+	do ..FileList.Insert(Info)
+]]></Implementation>
+</Method>
 </Class>