Index: vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml
===================================================================
diff -u -r2710 -r2872
--- vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml	(.../TestFtpAPI.cls.xml)	(revision 2710)
+++ vhUnitTest/TECH/Ftp/TestFtpAPI.cls.xml	(.../TestFtpAPI.cls.xml)	(revision 2872)
@@ -3,13 +3,20 @@
 <Class name="vhUnitTest.TECH.Ftp.TestFtpAPI">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("DefaultExportDirectory",..GeefBestandLocatie(),..#Applicatie)
+]]></Implementation>
+</Method>
+
 <Method name="Test: VerzendBestand">
 <Implementation><![CDATA[
 	try {
 		#dim BestandNaam As %String = ..GeefBestandNaam()
 		#dim VolledigeBestandNaam As %String = ..GeefVolledigeBestandNaam(BestandNaam)
 		Do ..MaakTestBestand(VolledigeBestandNaam)		
-		
 		#dim FtpAPI As TECH.Ftp.FtpAPI = ##class(TECH.Context).Instance().GeefFtpAPI()
 		
 		Do FtpAPI.Connecteer(..GeefTestFtpConfiguratie())