MS Config EDMIAppServerConfig

Services.ZUGFeRDService/ThreadRunner.vb

@@ -32,7 +32,21 @@ Public Class ThreadRunner
         _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
         Dim args As New WorkerArgs()
         args = LoadFolderConfig(args)
         args = LoadPropertyMapFor(args, "DEFAULT")