Update 20211219 _ erweiterung Logging

EDKB08/EDKB08/Service1.vb

@@ -329,7 +329,8 @@ Public Class Service1
 
     Private Sub PrintTempJournal(s As String)
         If Params.Logpath = "" Then Exit Sub
-        FileOpen(14, Params.Logpath, OpenMode.Append)
+        Dim fn As String = Params.Logpath + "\" + Now.ToString("yyyyMMdd") + "_log.txt"
+        FileOpen(14, fn, OpenMode.Append)
         WriteLine(14, Now.ToString("yyyy-MM-dd hh:mm:ss:hs") + " " + s)
         FileClose(14)
     End Sub

EDKB08/EDKB08/bin/parameters.cfg

@@ -13,7 +13,7 @@ GSF_Conf_Dateiendung		=xml
 Directorytimer			=10
 Directorys				=E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\DirectoriesToScan.txt
 IndexSicherung			=k:\edoka\edkb08\indsik\
-TempLogFile				=K:\EDOKA\EDKB08\Log\log.txt
+TempLogFilePath				=K:\EDOKA\EDKB08\Log
 Use FileEvent Rename	=False
 Wait_after_fileevent	=3
 Wait_before_process		=5