MS

2023-11-16 17:44:00 +01:00
parent 4c502369bd
commit df489932df
5 changed files with 69 additions and 47 deletions
--- a/app/DD-Record-Organizer/Classes/ClassWDRights.vb
+++ b/app/DD-Record-Organizer/Classes/ClassWDRights.vb
@@ -107,8 +107,9 @@ Public Class ClassWDRights
                    oWMObject = oSession.GetWMObjectByPath(1, reldocpath)
                    LOGGER.Debug("Object created.")
                Catch ex As Exception
-                    Dim msg = "Error GetWMObjectByPath: (FDSR) " & reldocpath & vbNewLine & Err.Description
+                    Dim msg = "Error GetWMObjectByPath: " & reldocpath & vbNewLine & Err.Description
                    LOGGER.Warn(msg)
+                    LOGGER.Error(ex)
                    Return False
                End Try
                Dim lret