jj: additional logging for file indexing
This commit is contained in:
parent
88feb253d1
commit
e664ef449e
@ -851,19 +851,32 @@ Public Class ClassWindream
|
|||||||
' ein windream-Objekt der Datei anlegen
|
' ein windream-Objekt der Datei anlegen
|
||||||
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
|
WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File)
|
||||||
Try
|
Try
|
||||||
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei wird gesperrt", False)
|
||||||
' die Datei sperren
|
' die Datei sperren
|
||||||
WMObject.lock()
|
WMObject.lock()
|
||||||
Catch ex As Exception
|
Catch ex As Exception
|
||||||
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Datei ist bereits gesperrt", False)
|
||||||
' nichts tun (Datei ist bereits gesperrt)
|
' nichts tun (Datei ist bereits gesperrt)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
If IsNothing(WMObject) Then
|
||||||
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Windream Object ist nothing, Indexierung wird abgebrochen", False)
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
|
||||||
|
If IsNothing(WMObject.aObjectType) Then
|
||||||
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Kein Objekttyp gesetzt, Indexierung wird abgebrochen", False)
|
||||||
|
Return False
|
||||||
|
End If
|
||||||
|
|
||||||
|
If LogErrorsOnly = False Then ClassLogger.Add($" ...Objekttyp wird gesetzt: " & _WDObjekttyp, False)
|
||||||
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
|
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
|
||||||
If WMObject.aObjectType.aName = "Standard" Then
|
If WMObject.aObjectType.aName = "Standard" Then
|
||||||
|
|
||||||
' ihr den entsprechenden Dokumenttyp zuweisen
|
' ihr den entsprechenden Dokumenttyp zuweisen
|
||||||
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
|
WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp)
|
||||||
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
|
' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
|
||||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wird gesetzt", False)
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp wurde gesetzt", False)
|
||||||
Else
|
Else
|
||||||
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False)
|
If LogErrorsOnly = False Then ClassLogger.Add(" ...Objekttyp war bereits gesetzt", False)
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user