Index: vhTest/Mock/TECH/Files.cls.xml
===================================================================
diff -u
--- vhTest/Mock/TECH/Files.cls.xml	(revision 0)
+++ vhTest/Mock/TECH/Files.cls.xml	(revision 3499)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.TECH.Files">
+<Description>
+Opgelet : Base class is niet Mockable wegen specifieke Fake implementatie</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Files,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="AddToList">
+<FormalSpec>FullName:%String,rset:%ResultSet</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("AddToList",FullName,rset)
+]]></Implementation>
+</Method>
+
+<Method name="GetDirectoryList">
+<FormalSpec>Directory:%String,AddSubDir:%Boolean=1</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetDirectoryList",Directory,AddSubDir)
+]]></Implementation>
+</Method>
+
+<Method name="GetFileList">
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0,NumberOfFiles:%Numeric=0</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetFileList",Directory,FileMask,AddSubDir,IncludeDirs,NumberOfFiles)
+]]></Implementation>
+</Method>
+
+<Method name="GetFilesFromListOfDirectories">
+<FormalSpec>DirectoryList:%ListOfDataTypes,FileSpecificatie:%String,Aantal:%Integer=0</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetFilesFromListOfDirectories",DirectoryList,FileSpecificatie,Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="GetResultSetForDirectory">
+<FormalSpec>Directory:%String,FileMask:%String</FormalSpec>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GetResultSetForDirectory",Directory,FileMask)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>