MS Convert Date und Unifying Convert

TC_Service/TCJobs/JobRunner.vb

@@ -0,0 +1,39 @@
+
+Imports DigitalData.Modules.Database
+Imports DigitalData.Modules.Logging
+Imports Quartz
+Imports Quartz.Impl
+Imports Quartz.Logging
+Imports System.Collections.Specialized
+Public Class JobRunner
+    Private _LogConfig As LogConfig
+    Private _Logger As DigitalData.Modules.Logging.Logger
+    Private _firebird As Firebird
+
+    Private _Props As New NameValueCollection From {
+        {"quartz.serializer.type", "binary"},
+        {"quartz.threadPool.threadCount", 10}
+    }
+    Private _factory As StdSchedulerFactory
+    Private _scheduler As IScheduler
+    Public Sub New(LogConfig As LogConfig, MSSQL As MSSQLServer, Firebird As Firebird)
+        _LogConfig = LogConfig
+        _Logger = LogConfig.GetLogger()
+        _firebird = Firebird
+        Try
+            Dim directory As New IO.DirectoryInfo(_LogConfig.LogDirectory)
+
+            For Each file As IO.FileInfo In directory.GetFiles
+                If (Now - file.CreationTime).Days > 29 Then
+                    file.Delete()
+                Else
+                    Exit For
+                End If
+
+
+            Next
+        Catch ex As Exception
+
+        End Try
+    End Sub
+End Class