MS Anpassungen LogFiles User, CodeCleaning

app/TaskFlow/ClassAllgemeineFunktionen.vb

@@ -2,6 +2,7 @@
 Imports System.Data.OracleClient
 Imports System.IO
 Imports WINDREAMLib
+Imports DevExpress.Utils.CommonDialogs
 
 Public Class ClassAllgemeineFunktionen
     Public Shared Function GUI_LANGUAGE_INFO(pTITLE As String)
@@ -319,4 +320,50 @@ Public Class ClassAllgemeineFunktionen
             Return 99
         End Try
     End Function
+    Public Shared Sub Save_Logfiles()
+        Try
+            Dim saveFileDialog1 As New SaveFileDialog()
+            If File.Exists(LOGCONFIG.LogFile) Then
+                saveFileDialog1.Filter = "log file|*.log"
+                saveFileDialog1.FileName = Path.GetFileName(LOGCONFIG.LogFile)
+                If saveFileDialog1.ShowDialog() = DialogResult.OK Then
+                    If File.Exists(saveFileDialog1.FileName) Then
+                        File.Delete(saveFileDialog1.FileName)
+                    End If
+                    File.Copy(LOGCONFIG.LogFile, saveFileDialog1.FileName)
+                End If
+            End If
+
+            If DEBUG = True Then
+                Dim oDebuglogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Debug.log"
+                Dim oDebuglogFilename = LOGCONFIG.LogDirectory + "\" + oDebuglogFilename_only
+                If File.Exists(oDebuglogFilename) Then
+                    saveFileDialog1.Filter = "log file|*.log"
+                    saveFileDialog1.FileName = oDebuglogFilename_only
+                    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
+                        If File.Exists(saveFileDialog1.FileName) Then
+                            File.Delete(saveFileDialog1.FileName)
+                        End If
+                        File.Copy(oDebuglogFilename, saveFileDialog1.FileName)
+                    End If
+                End If
+            End If
+            Dim oErrorlogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Error.log"
+            Dim oErrorlogFilename = LOGCONFIG.LogDirectory + "\" + oErrorlogFilename_only
+            If File.Exists(oErrorlogFilename) Then
+                saveFileDialog1.Filter = "log file|*.log"
+                saveFileDialog1.FileName = oErrorlogFilename_only
+                If saveFileDialog1.ShowDialog() = DialogResult.OK Then
+                    If File.Exists(saveFileDialog1.FileName) Then
+                        File.Delete(saveFileDialog1.FileName)
+                    End If
+                    File.Copy(oErrorlogFilename, saveFileDialog1.FileName)
+                End If
+            End If
+            Dim oMSG = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("ExportLogFiles_Result")
+            MsgBox(oMSG, MsgBoxStyle.Information, ADDITIONAL_TITLE)
+        Catch ex As Exception
+            MsgBox(ex.Message, "Error saving log file")
+        End Try
+    End Sub
 End Class