Index: TECH/IO.cls.xml
===================================================================
diff -u -r9 -r359
--- TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 9)
+++ TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 359)
@@ -51,6 +51,20 @@
 	quit Stream
 ]]></Implementation>
 </Method>
+
+<Method name="KuisOp">
+<Implementation><![CDATA[
+	Try{
+		#dim IsDeleteGelukt As %Boolean = ##class(TECH.File).Delete(..Filename)
+		If 'IsDeleteGelukt {
+			Do ##class(vhLib.Logger).%New("TECH.IO").WarningMail("Opkuis","Kon bestand '"_..Filename_"' niet verwijderen.")
+		}	
+	}Catch E{
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()	
+		Do ##class(vhLib.Logger).%New("TECH.IO").ErrorMail("Opkuis","Fout bij het verwijderen van bestand '"_..Filename_"'. "_Exception.ToString())
+	}
+]]></Implementation>
+</Method>
 </Class>