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