Index: TECH/File/impl/Directory.cls.xml
===================================================================
diff -u -r645 -r938
--- TECH/File/impl/Directory.cls.xml	(.../Directory.cls.xml)	(revision 645)
+++ TECH/File/impl/Directory.cls.xml	(.../File/impl/DirectoryUtils.cls.xml)	(revision 938)
@@ -1,14 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="TECH.Directory">
-<ClassType/>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Class name="TECH.File.impl.DirectoryUtils">
+<Super>TECH.RegisteredObject,TECH.File.DirectoryUtils</Super>
 
 <Method name="CreateIfNotExists">
 <Description>
 Maakt volledig directory path aan, bv C:\map1\map2\map3</Description>
-<ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String</FormalSpec>
 <Implementation><![CDATA[
 	If ('##class(%File).DirectoryExists(Directory))
@@ -21,7 +18,6 @@
 <Method name="Delete">
 <Description>
 Gaat volledig recursief een directory verwijderen</Description>
-<ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String</FormalSpec>
 <Implementation><![CDATA[
 	// Uitlezen van alle bestanden in de directory
@@ -46,7 +42,6 @@
 <Method name="VerwijderBestandenOuderDan">
 <Description>
 Verwijdert alle bestanden uit een directory die ouder of gelijk zijn aan de opgegeven datum</Description>
-<ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String,Datum:%Date</FormalSpec>
 <Implementation><![CDATA[
 	Set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
@@ -64,7 +59,6 @@
 </Method>
 
 <Method name="IsEmpty">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -73,6 +67,22 @@
 	quit 'ResultSet.Next()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefStandaardExportFolder">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Folder As %String = ""
+	try { 
+		set Folder = $$DIRUSER^vhDEV() 
+	}
+	catch {
+		set Folder = ""	
+	}	
+		
+	if '$length(Folder) set Folder = ##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory")
+	Quit Folder
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r913 -r938
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 913)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 938)
@@ -16,6 +16,12 @@
 <Implementation><![CDATA[	quit ##class(TECH.File.impl.FileWriter).%New(Bestand,0)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDirectoryUtils">
+<ReturnType>TECH.File.DirectoryUtils</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.File.impl.DirectoryUtils).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
FishEye: Tag 938 refers to a dead (removed) revision in file `TECH/Directory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r913 -r938
--- TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 913)
+++ TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 938)
@@ -17,6 +17,12 @@
 <ReturnType>TECH.File.FileReader</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefDirectoryUtils">
+<Abstract>1</Abstract>
+<ReturnType>TECH.File.DirectoryUtils</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/File/DirectoryUtils.cls.xml
===================================================================
diff -u
--- TECH/File/DirectoryUtils.cls.xml	(revision 0)
+++ TECH/File/DirectoryUtils.cls.xml	(revision 938)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.File.DirectoryUtils">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="CreateIfNotExists">
+<Abstract>1</Abstract>
+<FormalSpec>Directory:%String</FormalSpec>
+</Method>
+
+<Method name="Delete">
+<Abstract>1</Abstract>
+<FormalSpec>Directory:%String</FormalSpec>
+</Method>
+
+<Method name="VerwijderBestandenOuderDan">
+<Abstract>1</Abstract>
+<FormalSpec>Directory:%String,Datum:%Date</FormalSpec>
+</Method>
+
+<Method name="IsEmpty">
+<Abstract>1</Abstract>
+<FormalSpec>Directory:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="GeefStandaardExportFolder">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+
+
+</Export>