GUIs.ClipboardWatcher: Add error logging

GUIs.ClipboardWatcher/ProfileSearches.vb

@@ -43,10 +43,11 @@ Public Class ProfileSearches
                     End If
                 Catch ex As Exception
                     _Logger.Warn($"Could not initialize the AppServer: {ex.Message}")
+                    _Logger.Error(ex)
                 End Try
             End If
         Catch ex As Exception
-
+            _Logger.Error(ex)
         End Try
     End Sub
 
@@ -94,13 +95,13 @@ Public Class ProfileSearches
                 End If
 
                 oDocSearches.Add(New Search() With {
-                .Guid = oGuid,
+                    .Guid = oGuid,
-                .DataTable = oDatatable,
+                    .DataTable = oDatatable,
-                .ProfileId = oProfileId,
+                    .ProfileId = oProfileId,
-                .TabCaption = oTabTitle,
+                    .TabCaption = oTabTitle,
-                .TabIndex = oCounter,
+                    .TabIndex = oCounter,
-                .SQLCommand = oSQL
+                    .SQLCommand = oSQL
-            })
+                })
 
                 oCounter += 1
             Next

Modules.Logging/LogConfig.vb

@@ -250,6 +250,9 @@ Public Class LogConfig
         LogDirectory = _basePath
         LogFile = GetCurrentLogFilePath()
 
+        Dim oLogger = GetLogger()
+        oLogger.Info("Logging started for [{0}{1}] in [{2}]", oProductName, logFileSuffix, LogFile)
+
         ' Clear old Logfiles as defined in `FileKeepInterval`
         ClearOldLogfiles(FileKeepRangeInDays)
     End Sub

Modules.Logging/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.4.3.0")>
+<Assembly: AssemblyVersion("2.4.4.0")>
-<Assembly: AssemblyFileVersion("2.4.3.0")>
+<Assembly: AssemblyFileVersion("2.4.4.0")>