WinLineArtikelnummerGenerator/Winline.vb

@@ -155,8 +155,6 @@ Public Class Winline
 
             oURI &= $"?{oQuery}"
 
-            _Logger.Info("WebService Request: {0}", oURI)
-
             Dim oRequest As HttpWebRequest = WebRequest.Create(oURI)
             Dim oResponse As HttpWebResponse = DirectCast(oRequest.GetResponse(), HttpWebResponse)
             Dim oXmlResponse As String
@@ -165,8 +163,6 @@ Public Class Winline
                 oXmlResponse = oReader.ReadToEnd()
             End Using
 
-            _Logger.Info("WebService Response: {0}", oXmlResponse)
-
             Dim oDocument As New XmlDocument
             oDocument.LoadXml(oXmlResponse)
             oDocument.Save(Console.Out)

WinLineArtikelnummerGenerator/frmMain.vb

@@ -4,16 +4,8 @@
 
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
-            My.Application.LogConfig = New LogConfig(
-                LogPath:=LogConfig.PathType.CustomPath,
-                CustomLogPath:=Application.StartupPath,
-                CompanyName:="Digital Data",
-                ProductName:="WinLineProductNumberGenerator"
-            )
-            My.Application.ConfigManager = New ConfigManager(Of Config)(
-                My.Application.LogConfig,
-                Application.StartupPath
-            )
+            My.Application.LogConfig = New LogConfig(LogPath:=LogConfig.PathType.AppData, CompanyName:="Digital Data", ProductName:="WinLineProductNumberGenerator")
+            My.Application.ConfigManager = New ConfigManager(Of Config)(My.Application.LogConfig, Application.UserAppDataPath)
             _Logger = My.Application.LogConfig.GetLogger()
         Catch ex As Exception
             MsgBox("Fehler beim Initialisieren (Logging und Config):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)