Index: vhTest/Fake/AXimpl/Utils.cls.xml
===================================================================
diff -u -r48231 -r54722
--- vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 48231)
+++ vhTest/Fake/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 54722)
@@ -21,6 +21,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAXRequestDirectoryList">
+<FormalSpec>BaseDirectory:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefVoorraadBewegingDatum">
 <FormalSpec>ProductId:%String</FormalSpec>
 <ReturnType>%Date</ReturnType>
Index: vhTest/Mock/AXimpl/Utils.cls.xml
===================================================================
diff -u -r46453 -r54722
--- vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 46453)
+++ vhTest/Mock/AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 54722)
@@ -77,6 +77,13 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("ConvertUOMSeqGroupId",Product)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAXRequestDirectoryList">
+<FormalSpec>BaseDirectory:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAXRequestDirectoryList",BaseDirectory)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/Utils.cls.xml
===================================================================
diff -u -r48586 -r54722
--- AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 48586)
+++ AXimpl/Utils.cls.xml	(.../Utils.cls.xml)	(revision 54722)
@@ -76,6 +76,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAXRequestDirectoryList">
+<FormalSpec>BaseDirectory:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#Dim DirectoryList as %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Directory as %String = $Order(^AX.Config("In","Envelope",""))
+	while($Length(Directory)){		
+		#dim DirToScan = BaseDirectory _ "\" _Directory
+		;beetje opkuisen
+		Set DirToScan = $Replace(DirToScan,"\\","\")
+		Set DirToScan = $Replace(DirToScan,"/","\")		
+		Do DirectoryList.Insert(DirToScan)
+		Set Directory = $Order(^AX.Config("In","Envelope",Directory))
+	}
+	Quit DirectoryList
+]]></Implementation>
+</Method>
+
 <Method name="ConvertDefaultOrderType">
 <FormalSpec>Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>%String</ReturnType>