MS Config EDMIAppServerConfig

GUIs.ZooFlow/frmFlowForm.vb

@@ -46,7 +46,26 @@ Public Class frmFlowForm
         Logger = My.LogConfig.GetLogger()
         ' === Show Splash Screen ===
         SplashScreenManager.ShowForm(Me, GetType(frmSplash), False, False)
+        Try
+            Try
+                Dim directory As New IO.DirectoryInfo(My.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
+
+        Catch ex As Exception
+
+        End Try
         ' === Initialization ===
         Init = New ClassInit(My.LogConfig, Me)