Index: TECH/File/impl/DirectoryUtils.cls.xml
===================================================================
diff -u -r2628 -r3226
--- TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 2628)
+++ TECH/File/impl/DirectoryUtils.cls.xml	(.../DirectoryUtils.cls.xml)	(revision 3226)
@@ -15,9 +15,9 @@
 Maakt volledig directory path aan, bv C:\map1\map2\map3</Description>
 <FormalSpec>Directory:%String</FormalSpec>
 <Implementation><![CDATA[
-	If ('##class(TECH.File).DirectoryExists(Directory))
-	{
-		Do ##class(TECH.File).CreateDirectoryChain(Directory)
+	If ('##class(TECH.File).DirectoryExists(Directory)) {
+		#dim Succes As %Boolean = ##class(TECH.File).CreateDirectoryChain(Directory)
+		Do:($$$Not(Succes)) ##class(TECH.Exceptions.GeneralErrorException).Throw("Directory '"_Directory_"' kon niet aangemaakt worden.")
 	}
 ]]></Implementation>
 </Method>