Index: TECH/File/impl/FileUtils.cls.xml
===================================================================
diff -u -r2392 -r2393
--- TECH/File/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2392)
+++ TECH/File/impl/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2393)
@@ -5,12 +5,19 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.File.FileUtils</Super>
 
-<Method name="BestandBestaat">
+<Method name="FileExists">
 <FormalSpec>FileName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ##class(TECH.File).Exists(FileName)
 ]]></Implementation>
 </Method>
+
+<Method name="GetFileList">
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Files).GetFileList(Directory, FileMask, AddSubDir, IncludeDirs)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/File/FileUtils.cls.xml
===================================================================
diff -u -r2392 -r2393
--- TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2392)
+++ TECH/File/FileUtils.cls.xml	(.../FileUtils.cls.xml)	(revision 2393)
@@ -4,11 +4,16 @@
 <Abstract>1</Abstract>
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="BestandBestaat">
+<Method name="FileExists">
 <Abstract>1</Abstract>
 <FormalSpec>FileName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="GetFileList">
+<FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+</Method>
 </Class>