40 lines
1.1 KiB
VB.net
40 lines
1.1 KiB
VB.net
|
|
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
|