AppStd/ToolCollection
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS 26062026

Browse Source
This commit is contained in:
Developer01
2026-06-26 14:40:02 +02:00
parent edf172e034
commit 63fd072187
2 changed files with 5 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ToolCollection/ClassNIWindream.vb
View File

@@ -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

74
ToolCollection/frmNIHauptseite.vb
View File

@@ -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")