MS Config EDMIAppServerConfig

Services.EmailService/EmailService.vb

@@ -29,7 +29,21 @@ Public Class EmailService
             _LogConfig = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"), Nothing, "Digital Data", "EmailService")
             _LogConfig.Debug = My.Settings.DEBUG
             _Logger = _LogConfig.GetLogger()
+            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
             _Logger.Info("Starting {0}", ServiceName)
 
             ' === Inititalize Encryption ===