Index: TECH/Disk/Cleaner.cls.xml
===================================================================
diff -u
--- TECH/Disk/Cleaner.cls.xml	(revision 0)
+++ TECH/Disk/Cleaner.cls.xml	(revision 3461)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Disk.Cleaner">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="CleanupLogFiles">
+<Implementation><![CDATA[
+	#dim DatumGisteren As %Date = $$CALCDATE^vhLib.DataTypes(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate(),"A",-1)
+	#dim GeformateerdeDatum As %String = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(DatumGisteren,"YYYYMMDD")
+	
+	#dim Command As %String = """C:\Program Files\WinRAR\WinRAR.exe"""
+	Set Command = Command _ " a -y F:\LogFiles\ISCSOAP\"_GeformateerdeDatum_".rar F:\LogFiles\ISCSOAP\" _GeformateerdeDatum_"*.log"
+
+	if ($ZF(-1,Command)=0) {
+		Do SCANDIR^vhDEV("F:\LogFiles\ISCSOAP","*.log",,"X",1) // SOAPLogging rar files
+	}
+	
+	Do SCANDIR^vhDEV("F:\LogFiles\ISCSOAP","*.rar",,"X",180) // SOAPLogging rar files
+	Do SCANDIR^vhDEV("F:\LogFiles\CSP","*.log",,"X",30) // CSP Logging
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>