MS

EnvelopeGenerator.Form/frmMain.vb

@@ -664,4 +664,54 @@ Public Class frmMain
 
         End If
     End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+        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 LogConfig.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 = "The export of the log files was successful. Please make the log files available in a ticket or send them to Your admin-team"
+            MsgBox(oMSG, MsgBoxStyle.Information, Me.Text)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error saving log file")
+        End Try
+    End Sub
+    Public Shared Sub Save_Logfiles()
+
+    End Sub
 End Class