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>