Version 2.3.8.0

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2330")>
+<Assembly: AssemblyTrademark("2380")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.7.0")>
+<Assembly: AssemblyVersion("2.3.8.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmIndex.vb

@@ -697,6 +697,9 @@ Public Class frmIndex
     End Function
     Private Function Write_Indizes()
         Try
+            _Logger.NewBlock("Write_Indizes")
+            _Logger.Info("Indexing file [{0}]", CURRENT_NEWFILENAME)
+
             Dim indexierung_erfolgreich As Boolean = False
             'Manuelle Indexe Indexieren
             Dim DTMan As DataTable = MyDataset.VWDDINDEX_MAN
@@ -833,6 +836,8 @@ Public Class frmIndex
         Catch ex As Exception
             ShowErrorMessage(ex, "Write_Indizes")
             Return False
+        Finally
+            _Logger.EndBlock()
         End Try
         Return True
     End Function
@@ -851,7 +856,8 @@ Public Class frmIndex
         Dim indexierung_erfolgreich As Boolean = False
         Dim _step As String = "1"
         Try
-            Dim msg As Msg.Message = New Msg.Message(CURRENT_NEWFILENAME)
+            Dim oTempPath As String = Path.Combine("\\windream\objects", CURRENT_NEWFILENAME)
+            Dim msg As Msg.Message = New Msg.Message(oTempPath)
             Dim msgDisplayTo = msg.DisplayTo
             Dim msgInternetAccountName = msg.InternetAccountName
             If LogErrorsOnly = False Then