Index: TECH/Files.cls.xml
===================================================================
diff -u -r54 -r321
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 54)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 321)
@@ -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 
@@ -63,8 +83,6 @@
 <p>Method %OnNew(dob as %Date = "", name as %Name = "") as %Status]]></Description>
 <FormalSpec>FullName:%String,rset:%ResultSet</FormalSpec>
 <Implementation><![CDATA[
-	;#dim Info As TECH.FileInfo
-
 	quit:'$length(FullName)
 	
 	set Info = ##class(FileInfo).%New()