Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r304 -r528
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 304)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 528)
@@ -53,6 +53,12 @@
 		Do ##class(TECH.File).CreateDirectoryChain(DoelLocatie)
 	}
 	
+	If '##class(TECH.File).Exists(DoelLocatie){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Pad bestaat niet of is niet bereikbaar : '"_DoelLocatie_"'",1)
+		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
 	/// Stream aanmaken	
 	Set ..FileCharacterStream=##class(%FileCharacterStream).%New()	
 	If (..WriteImmediate){