MS Config EDMIAppServerConfig

Service.JobRunner/JobRunner.vb

@@ -24,6 +24,21 @@ Public Class JobRunner
         _Logger = LogConfig.GetLogger()
         _firebird = Firebird
         _mssql = MSSQL
+        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
 
     Public Async Sub Start()