Index: AXimpl/MessageInCollector.cls.xml
===================================================================
diff -u -r49403 -r54723
--- AXimpl/MessageInCollector.cls.xml	(.../MessageInCollector.cls.xml)	(revision 49403)
+++ AXimpl/MessageInCollector.cls.xml	(.../MessageInCollector.cls.xml)	(revision 54723)
@@ -3,39 +3,54 @@
 <Class name="AXimpl.MessageInCollector">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="FileAPI">
-<Type>TECH.File.FileAPI</Type>
+<Property name="Files">
+<Type>TECH.Files</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="BackgroundProcessStarter">
+<Type>TECH.BackgroundProcessStarter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AXUtils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>FileAPI:TECH.File.FileAPI</FormalSpec>
+<FormalSpec>Files:TECH.Files,BackgroundProcessStarter:TECH.BackgroundProcessStarter,AXUtils:AXimpl.Utils</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..FileAPI = $$$Inject(FileAPI,##class(TECH.File.impl.FileAPI).%New())
+	set ..Files = $$$Inject(Files,##class(TECH.Files).%New())
+	Set ..BackgroundProcessStarter = $$$Inject(BackgroundProcessStarter,##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter())
+	Set ..AXUtils = $$$Inject(AXUtils, ##class(AXimpl.Utils).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Process">
 <Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	
 	#dim Path As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_IF_IN_RequestPath")
+	#dim ListOfDirectories as %ListOfDataTypes = ..AXUtils.GeefAXRequestDirectoryList(Path)
+	#dim FileIterator As TECH.Iterator = ..Files.GetFilesFromListOfDirectories(ListOfDirectories,"*.xml",1)
 	
-	#dim FileIterator As TECH.Iterator = ..FileAPI.GetFileList(Path,"*.xml")
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie("AxIncomingFileBasedRequests")	
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AX.MessageInCollector_"_$job)
+	Do ##class(CHUI.Context).Instance().ZetHeeftUserInterface($$$False)
 	
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AX.MessageInCollector_"_$job)
-	
 	if FileIterator.HasNext() {
 	
 		set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
 		do DataBuilder.SetClassName("AXimpl.MessageInProcessor")	
 		do DataBuilder.SetMethodName("Verwerk")
-		do DataBuilder.VoegToeDataType(FileIterator.Next())
 		
-		do ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter().StartProcess(DataBuilder.GetData())
+		do ..BackgroundProcessStarter.StartProcess(DataBuilder.GetData())
 	}
 ]]></Implementation>
 </Method>