Index: TECH/Files.cls.xml
===================================================================
diff -u -r2122 -r3973
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 2122)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3973)
@@ -51,6 +51,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetDirectoryList">
+<Description>
+Geeft lijst van FileInfo-objecten terug 
+AddSubDir loopt recursief door alle onderliggende subdirs </Description>
+<FormalSpec>Directory:%String,AddSubDir:%Boolean=1</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set rset = ##class(%ResultSet).%New("%File:FileSet")
+	do rset.Execute(Directory,"*","",1)
+	while (rset.Next()) { 
+		if (rset.Data("Type") = "D") { 
+			set SubDirectory = ..AppendFile(Directory,rset.Data("ItemName"))
+			Do ..AddToList(SubDirectory,rset)
+			if AddSubDir Do ..GetDirectoryList(SubDirectory,AddSubDir)
+		}
+	}
+	quit ..List
+]]></Implementation>
+</Method>
+
 <Method name="AddToList">
 <Description><![CDATA[
 This callback method is invoked by the <METHOD>%New</METHOD> method to