Index: TECH/Context.cls.xml
===================================================================
diff -u -r2236 -r2870
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 2236)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 2870)
@@ -421,7 +421,7 @@
 
 <Method name="PushDefaultAPIClassNames">
 <Implementation><![CDATA[
-	Do ..PushFtpAPIClassName(##class(TECH.Ftp.impl.FtpAPI).%ClassName(1))
+	Do ..PushFtpAPIClassName(##class(TECH.Config.ConfigMgr).Instance().GetString("TECH.Context.FtpAPI_ClassName"))
 	Do ..PushMailAPIClassName(##class(TECH.Mail.impl.MailAPI).%ClassName(1))
 	Do ..PushDateTimeAPIClassName(##class(TECH.DateTime.impl.DateTimeAPI).%ClassName(1))
 	Do ..PushHttpAPIClassName(##class(TECH.Http.impl.HttpAPI).%ClassName(1))
Index: TECH/Ftp/impl/FtpApiFileBased.cls.xml
===================================================================
diff -u -r2866 -r2870
--- TECH/Ftp/impl/FtpApiFileBased.cls.xml	(.../FtpApiFileBased.cls.xml)	(revision 2866)
+++ TECH/Ftp/impl/FtpApiFileBased.cls.xml	(.../FtpApiFileBased.cls.xml)	(revision 2870)
@@ -27,6 +27,15 @@
 
 <Method name="Connecteer">
 <FormalSpec>Configuratie:TECH.Ftp.FtpConfiguratie</FormalSpec>
+<Implementation><![CDATA[
+	Do:('##class(TECH.File).DirectoryExists(..Path)) ##class(TECH.File).CreateDirectory(..Path)
+	set ..Path = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("DefaultExportDirectory"),"FTP")
+	Do:('##class(TECH.File).DirectoryExists(..Path)) ##class(TECH.File).CreateDirectory(..Path)
+	Set ..Path = ##class(TECH.Files).AppendSubPath(  ..Path,Configuratie.Adres)
+	Do:('##class(TECH.File).DirectoryExists(..Path)) ##class(TECH.File).CreateDirectory(..Path)
+	Set ..Path = ##class(TECH.Files).AppendSubPath(  ..Path,Configuratie.ServerBestandsLocatie)
+	Do:('##class(TECH.File).DirectoryExists(..Path)) ##class(TECH.File).CreateDirectory(..Path)
+]]></Implementation>
 </Method>
 
 <Method name="VerbreekVerbinding">
@@ -63,11 +72,17 @@
 <Method name="GeefBestandLijst">
 <ReturnType>%ArrayOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	#dim FileArray As %ArrayOfDataTypes
-	If '..FtpSessie.NameList("",.FileArray) {
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan bestandlijst niet opvragen ! ")
-		}
-	quit FileArray
+	#Dim AantalBestanden as %Integer = 0
+	#Dim BestandsNaam as %String
+	Set ArrayOfFilenames = ##class(%ArrayOfDataTypes).%New()	
+	Set FileInfoIt = ##class(TECH.ListIterator).%New(##class(TECH.Files).%New().GetFileList(..Path))
+	
+	While FileInfoIt.HasNext() {
+		Set BestandsNaam = ##class(TECH.File).GeefBestandsnaam(FileInfoIt.Next().Name)
+		Set AantalBestanden = AantalBestanden + 1
+		Do ArrayOfFilenames.SetAt(BestandsNaam,AantalBestanden)
+	}
+	quit ArrayOfFilenames
 ]]></Implementation>
 </Method>
 </Class>