Index: TECH/Files.cls.xml
===================================================================
diff -u -r3418 -r3498
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3418)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3498)
@@ -1,6 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.Files">
+<Description>
+Opgelet : class is niet TECH.Mockable wegen specifieke Fake implementatie</Description>
 <ClassType/>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
@@ -70,6 +72,38 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetFilesFromListOfDirectories">
+<Description>
+Geef de bestanden die voldoen aan de filespecifiactie uit de lijst van opgegeven directories.
+specifiek met $zsearch geschreven om dat deze reeds na 1 resultaat de controle terug geeft aan de code ipv alle bestanden eerst te enumereren
+wat belangrijk is indien er over het netwerk directories betreft</Description>
+<FormalSpec>DirectoryList:%ListOfDataTypes,FileSpecificatie:%String,Aantal:%Integer=0</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set FileList = ##class(%ListOfDataTypes).%New()
+	Set DirectoryIterator = ##class(TECH.ListIterator).%New(DirectoryList)
+	#dim AantalGevondenBestanden as %Integer = 0
+	While DirectoryIterator.HasNext() && ((Aantal = 0) || ( AantalGevondenBestanden < Aantal )){
+		#dim ScanSpecificatie = DirectoryIterator.Next() _ "\" _ FileSpecificatie
+		try {
+			#dim Filename as %String  = $zsearch(ScanSpecificatie)					
+			While ( ($Length(Filename)) && ((Aantal = 0) || ( AantalGevondenBestanden < Aantal )) ){
+				Set AantalGevondenBestanden = AantalGevondenBestanden + 1
+				Do FileList.Insert(Filename)
+				Set Filename = $ZSearch("")
+			}			
+			Set Filename = $ZSearch("-1") ;clear the lock for this dir				
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			; clear lock on directory
+			Set Filename = $ZSearch("-1") ;clear the lock for this dir				
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+		}		
+	}
+	Quit ##class(TECH.ListIterator).%New(FileList)
+]]></Implementation>
+</Method>
+
 <Method name="GetFileList">
 <FormalSpec>Directory:%String,FileMask:%String="*.*",AddSubDir:%Boolean=1,IncludeDirs:%Boolean=0,NumberOfFiles:%Numeric=0</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>