MS Loggername changed

DDTestService/MyNewService.vb

@@ -0,0 +1,21 @@
+Imports System.ComponentModel
+Imports DigitalData.Modules.Logging
+Imports NLog
+Public Class MyNewService
+    Private Shared _MyLoggerConfig As LogConfig
+    Public Shared threadRunner As BackgroundWorker
+    Private Shared Logger As Logger = LogManager.GetCurrentClassLogger
+    Protected Overrides Sub OnStart(ByVal args() As String)
+        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
+        ' ausführen, damit der Dienst gestartet werden kann.
+        _MyLoggerConfig = New LogConfig(LogConfig.PathType.CurrentDirectory)
+        ' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
+        Logger.Info("Service started")
+    End Sub
+
+    Protected Overrides Sub OnStop()
+        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
+        Logger.Info("Service stopped")
+    End Sub
+
+End Class