Index: TECH/Mail/impl/Mail.cls.xml
===================================================================
diff -u -r941 -r945
--- TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 941)
+++ TECH/Mail/impl/Mail.cls.xml	(.../Mail.cls.xml)	(revision 945)
@@ -113,9 +113,10 @@
 <FormalSpec>Stream:%Stream,Bestandsnaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Filename As %String = ##class(TECH.Files).AppendFile(##class(TECH.File).GetTempDir(),Bestandsnaam)
-	set File = ##class(TECH.File.impl.FileWriter).%New(Filename,1)
-	do File.WriteStream(Stream)
-	do File.Close()
+	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(Filename, 1)
+	do FileWriter.WriteStream(Stream)
+	do FileWriter.Close()
 	do ..Bijlagen.Insert(Filename)
 	quit
 ]]></Implementation>
Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r934 -r945
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 934)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 945)
@@ -4,6 +4,11 @@
 <Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
+<Method name="Open">
+<Abstract>1</Abstract>
+<FormalSpec>BestandVolledigeNaam:%String,WriteImmediate:%Boolean=0</FormalSpec>
+</Method>
+
 <Method name="Close">
 <Abstract>1</Abstract>
 <ReturnType>%Status</ReturnType>
Index: TECH/Http/impl/PosterFileDumper.cls.xml
===================================================================
diff -u -r912 -r945
--- TECH/Http/impl/PosterFileDumper.cls.xml	(.../PosterFileDumper.cls.xml)	(revision 912)
+++ TECH/Http/impl/PosterFileDumper.cls.xml	(.../PosterFileDumper.cls.xml)	(revision 945)
@@ -23,7 +23,8 @@
 <Method name="PostMessage">
 <FormalSpec>Message:TECH.Http.Message</FormalSpec>
 <Implementation><![CDATA[
-	set File = ##class(TECH.File.impl.FileWriter).%New(..GeefBestandVolledigeNaam())
+	set File = ##class(TECH.File.impl.FileWriter).%New()
+	do File.Open(..GeefBestandVolledigeNaam())
 	
 	do File.WriteLine("ContextType : "_Message.ContentType)
 	do File.WriteLine("ContextEncoding : "_Message.ContextEncoding)
Index: vhLib/WebServiceLogger/impl/BestandLogger.cls.xml
===================================================================
diff -u -r912 -r945
--- vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 912)
+++ vhLib/WebServiceLogger/impl/BestandLogger.cls.xml	(.../BestandLogger.cls.xml)	(revision 945)
@@ -19,7 +19,8 @@
 		#dim Counter As %Integer = $increment(^zWS.Logger(ClassName_" "_Webmethod))
 		if Counter < 201 {
 			#dim Filename As %String = ##class(TECH.Files).AppendFile(Path,ClassName_"\"_Webmethod_"\"_$job_Direction_Timestamp_$Random(10000)_".log")	
-			set FileWriter = ##class(TECH.File.impl.FileWriter).%New(Filename)
+			#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+			Do FileWriter.Open(Filename)
 			Do FileWriter.WriteStream(Stream)
 			Do FileWriter.Close()
 	
Index: Tools/GlobalSearch.cls.xml
===================================================================
diff -u -r912 -r945
--- Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 912)
+++ Tools/GlobalSearch.cls.xml	(.../GlobalSearch.cls.xml)	(revision 945)
@@ -88,7 +88,8 @@
 
 <Method name="ExportToFile">
 <Implementation><![CDATA[
-	set FileWriter = ##class(TECH.File.impl.FileWriter).%New(..Bestandsnaam)
+	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(..Bestandsnaam)
 	set itList = ##class(TECH.ListIterator).%New(..Result)
 	while itList.HasNext() {
 		do FileWriter.WriteLine(itList.Next())
Index: TECH/File/impl/FileWriter.cls.xml
===================================================================
diff -u -r934 -r945
--- TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 934)
+++ TECH/File/impl/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 945)
@@ -26,15 +26,13 @@
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
+<Method name="Open">
 <Description>
 FileHandler die ook locking en rechten beheerd voor de file
 Bestand : Directory + bestand
 WriteImmediate : Schrijft onmiddelijk op de definitieve locatie, (voor over netwerk te sturen deze op false zetten !)</Description>
 <FormalSpec>Bestand:%String,WriteImmediate:%Boolean=1</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
 	Set ..Bestand = Bestand
 	Set ..WriteImmediate = WriteImmediate
 	
@@ -192,20 +190,6 @@
 <Implementation><![CDATA[	Quit "^TECH.File.FileHandler("""_..Bestand_""")"
 ]]></Implementation>
 </Method>
-
-<Method name="%OnClose">
-<Description><![CDATA[
-This callback method is invoked by the <METHOD>%Close</METHOD> method to 
-provide notification that the current object is being closed.
-Wordt ook bij een Kill uitgevoerd]]></Description>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ..Close()
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r938 -r945
--- TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 938)
+++ TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 945)
@@ -6,7 +6,6 @@
 
 <Method name="GeefFileWriter">
 <Abstract>1</Abstract>
-<FormalSpec>Bestand:%String</FormalSpec>
 <ReturnType>TECH.File.FileWriter</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
Index: TECH/Mail/impl/BestandVerzender.cls.xml
===================================================================
diff -u -r921 -r945
--- TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 921)
+++ TECH/Mail/impl/BestandVerzender.cls.xml	(.../BestandVerzender.cls.xml)	(revision 945)
@@ -53,24 +53,24 @@
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = ..BepaalBestandVolledigeNaam(Mail.GeefOnderwerp())
 
-	set File = ##class(TECH.File.impl.FileWriter).%New(BestandVolledigeNaam)
+	#dim FileWriter As TECH.File.FileWriter= ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	Do FileWriter.Open(BestandVolledigeNaam)
+ 	do FileWriter.WriteLine("Onderwerp: "_Mail.GeefOnderwerp())
+ 	do FileWriter.WriteLine("Verzender: "_Mail.GeefVerzender())
 
- 	do File.WriteLine("Onderwerp: "_Mail.GeefOnderwerp())
- 	do File.WriteLine("Verzender: "_Mail.GeefVerzender())
-
  	if (Mail.GeefOntvangers().Size) {
-	 	do File.WriteLine("Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),","))
+	 	do FileWriter.WriteLine("Ontvangers: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangers(),","))
  	}
  	if Mail.GeefOntvangersCC().Size {
-	 	do File.WriteLine("Ontvangers CC: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),","))
+	 	do FileWriter.WriteLine("Ontvangers CC: "_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersCC(),","))
  	}
  	if Mail.GeefOntvangersBCC().Size { 
- 		do File.WriteLine("Ontvangers BCC: '"_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),","))
+ 		do FileWriter.WriteLine("Ontvangers BCC: '"_##class(TECH.ListUtils).ListToPieces(Mail.GeefOntvangersBCC(),","))
  	}
  	
- 	do File.WriteLine("Data:")
- 	do File.WriteStream(Mail.GeefInhoud())
- 	do File.Close()
+ 	do FileWriter.WriteLine("Data:")
+ 	do FileWriter.WriteStream(Mail.GeefInhoud())
+ 	do FileWriter.Close()
 ]]></Implementation>
 </Method>
 
Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r938 -r945
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 938)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 945)
@@ -11,9 +11,8 @@
 </Method>
 
 <Method name="GeefFileWriter">
-<FormalSpec>Bestand:%String</FormalSpec>
 <ReturnType>TECH.File.FileWriter</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.File.impl.FileWriter).%New(Bestand,0)
+<Implementation><![CDATA[	quit ##class(TECH.File.impl.FileWriter).%New()
 ]]></Implementation>
 </Method>