From 63fd0721871bcaab065b50780978d54e223c518a Mon Sep 17 00:00:00 2001 From: Developer01 Date: Fri, 26 Jun 2026 14:40:02 +0200 Subject: [PATCH] MS 26062026 --- ToolCollection/ClassNIWindream.vb | 5 ++- ToolCollection/frmNIHauptseite.vb | 74 +------------------------------ 2 files changed, 5 insertions(+), 74 deletions(-) diff --git a/ToolCollection/ClassNIWindream.vb b/ToolCollection/ClassNIWindream.vb index 40eddc9..3cf08c1 100644 --- a/ToolCollection/ClassNIWindream.vb +++ b/ToolCollection/ClassNIWindream.vb @@ -973,12 +973,13 @@ Public Class ClassNIWindream wdfLocation = wdfLocation.Replace("W:", "\\windream\objects") wdfLocation = wdfLocation.Replace("X:", "\\windream\objects") wdfLocation = wdfLocation.Replace("U:", "\\windream\objects") + _Logger.Debug(String.Format("Starting up GetSearchDocuments ...")) If System.IO.File.Exists(wdfLocation) Then Try Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1) Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length) - + _Logger.Debug(String.Format("WM Search exists ...")) Me.oController.CheckSearchProfile(wdfLocation.ToLower) Dim suchTyp = Me.oController.SearchProfileTargetProgID @@ -1039,6 +1040,8 @@ Public Class ClassNIWindream If wdfLocation.ToUpper.Contains("SELECT") Or wdfLocation.ToUpper.Contains("EXEC") Then _Logger.Info("WMSearch replaced with SQL Command ...:") WMSearchIsSQL = True + Else + _Logger.Info(String.Format("WMSearch [{0}] was not found or is not accessible!", wdfLocation)) End If End If diff --git a/ToolCollection/frmNIHauptseite.vb b/ToolCollection/frmNIHauptseite.vb index 719761d..e89d54a 100644 --- a/ToolCollection/frmNIHauptseite.vb +++ b/ToolCollection/frmNIHauptseite.vb @@ -1517,40 +1517,6 @@ Public Class frmNIHauptseite _Logger.Debug("...process has exited: ") _sw.Stop() - 'Dim myProcess As New Process - 'Dim oProcessID - 'myProcess.StartInfo.FileName = oVBScriptFile - - 'Dim startInfo As New ProcessStartInfo(oVBScriptFile) - 'startInfo.CreateNoWindow = True - 'myProcess.StartInfo.Arguments = oParamArg - '_Logger.Debug("Argument For myProcess [" & myProcess.StartInfo.Arguments & "]") - 'myProcess.Start() - 'oProcessID = myProcess.Id - '_Logger.Debug("Script executed!") - 'If IsNumeric(oProcessID) Then - ' _Logger.Debug("got an PROCID: " & oProcessID.ToString) - - - ' Dim oMyProcess1 As Process - ' oMyProcess1 = Process.GetProcessById(oProcessID) - - ' Dim _sw1 As Stopwatch = New Stopwatch() - ' _sw1.Start() - - ' Do While oMyProcess1.HasExited = False - - ' If _sw1.Elapsed.TotalSeconds = 30 Then - ' _Logger.Debug("Still waiting (30 sec) for ending of process-id: " & oProcessID.ToString) - ' ElseIf _sw1.Elapsed.TotalMinutes = 1 Then - ' _Logger.Debug("Still waiting (60 sec) for ending of process-id: " & oProcessID.ToString & " - Exit now", True) - ' Exit Do - ' End If - ' Loop - ' _Logger.Debug("...process has exited: ") - ' _sw1.Stop() - 'End If - Else @@ -1559,39 +1525,7 @@ Public Class frmNIHauptseite - 'task.WaitForExit() - ' MsgBox(so.ReadToEnd) - 'myProcess.StartInfo.Arguments = oParamArg - '_Logger.Debug("Argument For myProcess [" & myProcess.StartInfo.Arguments & "]") - 'myProcess.Start() - ''Process.Start(startInfo) - - 'oProcessID = myProcess.Id - '_Logger.Debug("Script executed!") - - 'If IsNumeric(oProcessID) Then - ' _Logger.Debug("got an PROCID: " & oProcessID.ToString) - - - ' Dim oMyProcess As Process - ' oMyProcess = Process.GetProcessById(oProcessID) - - ' Dim _sw As Stopwatch = New Stopwatch() - ' _sw.Start() - - ' Do While oMyProcess.HasExited = False - - ' If _sw.Elapsed.TotalSeconds = 30 Then - ' _Logger.Debug("Still waiting (30 sec) for ending of process-id: " & oProcessID.ToString) - ' ElseIf _sw.Elapsed.TotalMinutes = 1 Then - ' _Logger.Debug("Still waiting (60 sec) for ending of process-id: " & oProcessID.ToString & " - Exit now", True) - ' Exit Do - ' End If - ' Loop - ' _Logger.Debug("...process has exited: ") - ' _sw.Stop() - 'End If Catch ex As Exception _Logger.Warn("Unexpected error in running script: " & ex.Message) @@ -1759,14 +1693,8 @@ Public Class frmNIHauptseite 'Move and Rename ausführen If LICENSE_MoveRename = True And Not oUnexpectedError And unvollstaendig = False Then - Dim swMoveandrename As New ClassStopwatch("MoveandRename") + oUnexpectedError = FNMoveRename(pMyWMDoc) - - Dim msg1 = swMoveandrename.Done - If msg1 <> "" Then - Stopwatch1 += vbNewLine & $"{msg1}" - - End If Else If LICENSE_MoveRename = True And oUnexpectedError = True Or unvollstaendig = True Then _Logger.Info("MoveRename Yes but error_in_Indexierung = True Or unvollstaendig = True")