Index: TECH/Files.cls.xml
===================================================================
diff -u -r3581 -r3909
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3581)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 3909)
@@ -302,6 +302,40 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="WaitUntilFileExists">
+<Description>
+Deze method is het equivalent van %File.Exists() met uitbreiding van een Wait-loop, om vertragingen (van externe systemen) mee op te vangen. Voor het eerst gebruikt bij overgang van \\fop\ naar DFS-share.
+Input : 
+  lbWaitSeconds = $ListBuild(1,1,1,1,2,2,3,4,5,5,5)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BestandVolledigeNaam:%String,lbWaitSeconds:%List,Logger:vhLib.Logger="",LogAction:%String,LogDetailPrefix:%String=""</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim FileExists As %Boolean = ##class(%File).Exists(BestandVolledigeNaam)
+	
+	Set SecondsIterator = ##class(TECH.ListbuildIterator).%New(lbWaitSeconds)
+	While (SecondsIterator.HasNext()) {
+		#dim WaitNSeconds As %Numeric = +SecondsIterator.Next()
+		#dim LogMethodName As %String = $$$If((SecondsIterator.Key() < 4),"Info","Warning")
+		
+		If ($$$Not(FileExists)) {
+			If ($IsObject(Logger)) {
+				Do $Method(Logger, LogMethodName, LogAction, LogDetailPrefix_"WaitUntilFileExists: '"_BestandVolledigeNaam_"' does not exist. Wait '"_WaitNSeconds_"' second(s)." )
+			}
+			Hang WaitNSeconds
+			Set FileExists = ##class(%File).Exists(BestandVolledigeNaam)
+		}
+	}
+	
+	If FileExists {
+		#dim FileSize As %Numeric = ##class(TECH.File).GetFileSize(BestandVolledigeNaam)
+		Do:($IsObject(Logger)) Logger.Info(LogAction,LogDetailPrefix_"WaitUntilFileExists: '"_BestandVolledigeNaam_"' has been detected here (FileSize = "_FileSize_")")
+	}
+	
+	Quit FileExists
+]]></Implementation>
+</Method>
 </Class>