Imports WINDREAMLib
Imports WINDREAMLib.WMCOMEvent
Imports WINDREAMLib.WMEntity
Imports WINDREAMLib.WMObjectEditMode
Imports WINDREAMLib.WMSearchOperator
Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Imports WMOSRCHLib
Public Class Windream
    Inherits Constants
#Region "+++++ Variables +++++"
    Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
    Public CurrentSession = Nothing
    Public CurrentSessionIsLoggedIn As Boolean = False
    Private CurrentObjecttypes As WINDREAMLib.WMObjects
    Private CurrentController As WMOSearchController
    Private Shared CurrentWMConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
    Public CurrentWMServer As String
    Private WMDriveLetter As String = "W"
    Private _Session_Reconnect As Boolean = False
#End Region
#Region "+++++ Init +++++"
    ''' <summary>
    ''' Initializes windream and creates a windream session with the actual user
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub New(WMDRIVE As String, SessionReconnect As Boolean)
        Try
            WMDriveLetter = WMDRIVE
            NewSession()
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Sub
    ''' <summary>
    ''' Creates a windream session with the actual user
    ''' </summary>
    ''' <returns>Returns true when created, false if not</returns>
    ''' <remarks></remarks>
    Public Function NewSession()
        Try
            Dim wmbrwsr
            wmbrwsr = CreateObject("WMOBrws.ServerBrowser")
            '==================================================================
            ' get the current DMS-server to log in
            '==================================================================
            CurrentWMServer = wmbrwsr.GetCurrentServer
            Logger.Info("ECMServer: " & CurrentWMServer)
            Dim Connect
            Try
                Connect = CreateObject("Windream.WMConnect")
                Logger.Info("...connected to windream!")
            Catch ex As Exception
                CurrentSession = Nothing
                CurrentSessionIsLoggedIn = False
                Logger.Error(ex)
                Return False
            End Try
            '==================================================================
            ' create a session
            '==================================================================
            'Prüfen ob sich personifiziert angemeldet werden muss?
            Try
                CurrentSession = CreateObject("Windream.WMSession", CurrentWMServer)
            Catch ex As Exception
                CurrentSession = Nothing
                CurrentSessionIsLoggedIn = False
                Logger.Error(ex)
                Return False
            End Try
            '==================================================================
            ' login session
            '==================================================================
            Try
                Connect.LoginSession(CurrentSession)
                If CurrentSession.aLoggedin Then
                    CurrentWMConnect = Connect
                    CurrentSessionIsLoggedIn = True
                    Logger.Info("UserSession has been created!")
                    Try
                        'Standardmässig hinterlegen dass abgelegte Dateien keine Indexmaske öffnet
                        CurrentSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
                        ' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine 
                        ' Ordnertypen ausgelesen werden
                        CurrentObjecttypes = CurrentSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
                    Catch ex As Exception
                        Logger.Error(ex)
                        'clsLogger.Add("Could not get Objecttypes: " & ex.Message, True)
                    End Try
                    Return True
                Else
                    CurrentSessionIsLoggedIn = False
                    Logger.Warn("Session could be built but user cannot be logged in!")
                    Return False
                End If
            Catch ex As Exception
                If Not IsNothing(CurrentSession) Then
                    If CurrentSession.aLoggedin Then
                        Logger.Info("User is already logged in!....")
                        CurrentSessionIsLoggedIn = True
                    Else
                        CurrentSessionIsLoggedIn = False
                    End If
                    Return True
                Else
                    Logger.Error(ex)
                    CurrentSession = Nothing
                    CurrentSessionIsLoggedIn = False
                    Return False
                End If
            End Try
        Catch ex As Exception
            CurrentSession = Nothing
            CurrentSessionIsLoggedIn = False
            Logger.Error(ex)
            'clsLogger.Add("Unexpected Error in Create Session: " & ex.Message, True)
            Return False
        End Try
    End Function
#End Region
#Region "+++++ New +++++"
    Public Function NewFile()

    End Function
    ''' <summary>
    ''' Creates a folder in windream. All folder-parts will be checked
    ''' </summary>
    ''' <param name="folderpath">full path of new folder</param>
    ''' <returns>Returns true when folder was created, false if not</returns>
    ''' <remarks></remarks>
    Public Function NewFolder(ByVal folderpath As String)
        Try
            If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                folderpath = folderpath.Substring(2)
            End If
            Dim folders() As String = folderpath.Split("\")
            For Each folder As String In folders
                Dim WMObject As WINDREAMLib.WMObject
                If TestFolderExists(folder) = False Then
                    Try
                        WMObject = CurrentSession.GetNewWMObjectFS(WMEntityFolder, folder, WMObjectEditModeNoEdit)
                    Catch ex As Exception
                        Logger.Error(ex)
                        'clsLogger.Add("Could not create WMObject for folderpath '" & folder & "': " & ex.Message, True)
                        Return False
                    End Try

                End If
            Next
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            'clsLogger.Add("Unexpected error in NewFolder: " & ex.Message, True)
            Return False
        End Try
    End Function
    ''' <summary>
    ''' Indexes the file with the given values
    ''' </summary>
    ''' <param name="WMFile">full filepath</param>
    ''' <param name="indexname">Name of the index</param>
    ''' <param name="aValues">values as array</param>
    ''' <returns>Returns true when folder was created, false if not</returns>
    ''' <remarks></remarks>
    Public Function NewIndexFile(WMFile As String, ByVal indexname As String, ByVal aValues() As String) As Boolean
        If TestSession() = False Then
            Return False
        End If
        Dim oWMFile As WMObject = GetWMObjectForFile(WMFile)
        If IsNothing(oWMFile) Then
            Return False
        End If
        Dim vektInsState As Integer = 1
        Try
            If Not oWMFile.aLocked Then
                oWMFile.lock()
            Else
                Logger.Info("WMDoc is locked already!")
                Return False
            End If


            If aValues.Length = 1 And aValues(0) = "" Then
                Logger.Info("Indexvalue is empty - No indexing")

                Return False
            End If
            Logger.Info("Indexing of index '" & indexname)

            Dim oWMType
            Try
                ' das entsprechende Attribut aus windream auslesen
                Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
                ' den Variablentyp (String, Integer, ...) auslesen 
                oWMType = oAttribute.getVariableValue("dwAttrType")
            Catch ex As Exception
                Logger.Error(ex)
                Return False
            End Try

            ' wenn in aValues an Position i ein Wert steht
            Dim i As Integer = 0
            Dim value = aValues(i)

            Dim oWMValueConverted

            Dim vektor As Boolean = False
            'Den Typ des Index-Feldes auslesen
            Logger.Info("type of windreamIndex: " & oWMType.ToString)
            Select Case (oWMType)

                Case INDEX_TYPE_STRING
                    oWMValueConverted = CStr(value)
                Case INDEX_TYPE_INTEGER
                    value = value.ToString.Replace(" ", "")
                    value = value.ToString.Replace(" ", "")
                    oWMValueConverted = CInt(value)
                Case INDEX_TYPE_FLOAT
                    value = value.ToString.Replace(" ", "")
                    oWMValueConverted = CDbl(value)
                Case INDEX_TYPE_FIXED_POINT
                    value = value.ToString.Replace(" ", "")
                    oWMValueConverted = CDbl(value)
                Case INDEX_TYPE_BOOLEAN
                    oWMValueConverted = CBool(value)
                Case INDEX_TYPE_DATE
                    'Dim _date As Date = value
                    oWMValueConverted = value
                Case INDEX_TYPE_TIME
                    oWMValueConverted = CDbl(value)
                Case INDEX_TYPE_CURRENCY
                    'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
                    Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
                    oWMValueConverted = aValueWrapper
                Case INDEX_TYPE_TIME
                    'If ((value)) Then
                    '    oWMValueConverted = CDate(value)
                    'Else
                    '    oWMValueConverted = ""
                    'End If
                    'Dim _date As Date = value
                    oWMValueConverted = oWMValueConverted '*_date.ToShortTimeString
                Case INDEX_TYPE_FLOAT
                    oWMValueConverted = CStr(value)
                Case INDEX_TYPE_VARIANT

                    oWMValueConverted = CStr(value)
                Case INDEX_TYPE_FULLTEXT
                    oWMValueConverted = CStr(value)
                Case 4097
                    'Vektor alphanumerisch
                    vektor = True
                Case 4098
                    'Vektor Numerisch
                    vektor = True
                Case 4099
                    'Vektor Kommazahl
                    vektor = True
                Case 4100
                    'Vektor Kommazahl
                    vektor = True
                Case 4101
                    'Vektor Kommazahl
                    vektor = True
                Case 4103
                    'Vektor DateTime
                    vektor = True
                Case 4107
                    vektor = True
                Case 36865
                    'Vektor Kommazahl
                    vektor = True
                Case Else
                    oWMValueConverted = ""
            End Select
            If vektor = False Then
                If oWMValueConverted.ToString Is Nothing = False Then
                    Logger.Info("Converted value is: " & oWMValueConverted.ToString)
                End If
            End If
            '############################################################################################
            '####################### Der eigentliche Indexierungsvorgang ################################
            '############################################################################################
            If vektor = False Then
                Try
                    If oWMValueConverted.ToString Is Nothing = False Then
                        Logger.Info("Now: oWMFile.SetVariableValue(" & indexname & ", " & oWMValueConverted & ")")
                        oWMFile.SetVariableValue(indexname, oWMValueConverted)
                        'Die Datei speichern
                        oWMFile.Save()
                        Logger.Info("Index has been written!")
                    Else
                        Logger.Info("No indexvalue exists!")
                    End If
                Catch ex As Exception
                    Logger.Error(ex)
                    oWMFile.Save()
                    oWMFile.unlock()
                    Return False
                End Try

            Else
                Logger.Info("Vectorfield: Preparing of Array!")
                Dim myArray()
                Dim Anzahl As Integer = aValues.Length
                'Vektorfeld wird mit EINEM Wert gefüllt
                If Anzahl = 1 Then
                    Logger.Info("Vectorfield will be filled with ONE VALUE!")
                    ReDim myArray(0)
                    myArray(0) = Helpers.Convert_VectorType(oWMType, value)
                    'Jetzt überprüfen ob Werte in Vektorfeld angefügt oder überschrieben werden sollen
                    Logger.Info("Converted Value: " & myArray(0).ToString)
                    Dim VektorArray()
                    VektorArray = Return_VektorArray(oWMFile, indexname, myArray, oWMType)
                    If VektorArray Is Nothing = False Then
                        ReDim myArray(VektorArray.Length - 1)
                        Array.Copy(VektorArray, myArray, VektorArray.Length)
                        'Jetzt die Nachindexierung 
                        oWMFile.SetVariableValue(indexname, myArray) '
                        Logger.Info("Vectorindex has been written!")
                        'Die Änderungen festsschreiben/speichern
                        oWMFile.Save()
                    End If

                End If

            End If
            i += 1

            oWMFile.unlock()
            Logger.Info("...and unlock")
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            oWMFile.Save()
            oWMFile.unlock()
            Return False
        End Try
    End Function
    Private Function NewLockWMFile(oWMFile As WMObject) As Boolean
        Try
            oWMFile.lock()
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
    ''' <summary>
    ''' Sets the folder-objecttype.
    ''' </summary>
    ''' <param name="folderpath">full path of folder</param>
    ''' <param name="folderObjecttype">Obcjectype Name</param>
    ''' <returns>Returns true when Otype was set, false if not</returns>
    ''' <remarks></remarks>
    Public Function NewObjecttypeForFolder(folderpath As String, folderObjecttype As String)
        Try
            Dim result As Boolean = False
            Dim WMFolder As WINDREAMLib.WMObject
            If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                folderpath = folderpath.Substring(2)
            End If

            If TestFolderExists(folderpath) = True Then
                WMFolder = CurrentSession.GetWMObjectByPath(WMEntityFolder, folderpath)
                Try
                    ' die Datei sperren
                    WMFolder.lock()
                Catch ex As Exception
                    ' nichts tun (Datei ist bereits gesperrt)
                End Try

                ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
                If WMFolder.aObjectType.aName = "Standard" Then

                    ' ihr den entsprechenden Dokumenttyp zuweisen
                    WMFolder.aObjectType = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, folderObjecttype)
                    ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp
                    Logger.Info("Objecttype has been set")
                    result = True
                Else
                    If WMFolder.aObjectType.aName <> "Standard" Then
                        Logger.Warn("An Objecttype has already been set!")
                    End If
                End If

                Try
                    WMFolder.Save()
                Catch ex As Exception
                    ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine
                    ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden
                    Return False
                End Try

                Try
                    WMFolder.unlock()
                Catch ex As Exception
                    ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt
                End Try
                Return result
            End If


        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
    ''' <summary>
    ''' Creates a new version of the file
    ''' </summary>
    ''' <param name="WMPath">full path to the file</param>
    ''' <param name="Comment">Comment</param>
    ''' <returns>Returns true when version was created, false if not</returns>
    ''' <remarks></remarks>
    Public Function NewVersion(ByVal WMPath As String, ByVal Comment As String)
        Try
            If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                WMPath = WMPath.Substring(2)
            End If

            Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject")  'New WINDREAMLib.WMObject
            Try
                WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath) 'WINDREAMLib.WMEntity.WMEntityDocument
            Catch ex As Exception
                Logger.Warn("Could not create WMObject in Create_Version for file '" & WMPath & "': " & ex.Message)
                Return False
            End Try
            WMObject.CreateVersion2(False, "HISTORY_New_From_Version", Comment)
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
#End Region
#Region "+++++ Get +++++"
    ''' <summary>
    ''' Returns all choicelists
    ''' </summary>
    ''' <returns>choicelists as String-Array</returns>
    ''' <remarks></remarks>
    Public Function GetChoiceLists() As DataTable
        Dim dtresult As New DataTable
        dtresult.Columns.Add("RESULT", GetType(String))
        Try
            Dim oChoiceLists As WMObjects
            Dim oChoiceList As IWMObject2
            ' den Objekttyp laden
            oChoiceLists = CurrentSession.GetAllObjects(WMEntityChoiceList)
            'Array für Indizes vorbereiten


            For j As Integer = 0 To oChoiceLists.Count() - 1

                ' aktuellee Liste ausleseb auslesen
                oChoiceList = oChoiceLists.Item(j)
                dtresult.Rows.Add(oChoiceList.aName)
            Next
            dtresult.AcceptChanges()
            Return dtresult

        Catch ex As Exception
            Logger.Error(ex)
            Return dtresult
        End Try
    End Function
    ''' <summary>
    ''' Returns all indices for an objecttype
    ''' </summary>
    ''' <param name="ObjecttypeName">Name of objecttype</param>
    ''' <returns>Name of containing indices as String-Array</returns>
    ''' <remarks></remarks>
    Public Function GetIndicesByObjecttype(ByVal ObjecttypeName As String) As String()
        Try
            Dim oObjectType As WMObject
            Dim oIndexAttributes As WMObjectRelation
            Dim oIndexAttribute As WMObject
            Dim oIndex As WMObject
            Dim oRelProperties As WMObjectRelation

            ' den Objekttyp laden
            oObjectType = CurrentSession.GetWMObjectByName(WMEntityObjectType, ObjecttypeName)

            ' Beziehung zu Indizes des Objekttyp auslesen
            oIndexAttributes = oObjectType.GetWMObjectRelationByName("TypeAttributes")

            ' Array für Indizes vorbereiten
            Dim aIndexNames(oIndexAttributes.Count - 1) As String

            ' alle Indizes durchlaufen
            For j As Integer = 0 To oIndexAttributes.Count - 1

                ' aktuellen Index auslesen
                oIndexAttribute = oIndexAttributes.Item(j)

                ' Eigenschaften des Index auslesen
                oRelProperties = oIndexAttribute.GetWMObjectRelationByName("Attribute")

                ' Index aus den Eigenschaften auslesen
                oIndex = oRelProperties.Item(0)

                ' Indexname speichern
                aIndexNames(j) = oIndex.aName
            Next

            ' Indexarray zurückgeben
            Return aIndexNames

        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
    ''' <summary>
    ''' Returns all items of a choicelist
    ''' </summary>
    ''' <param name="NameChoicelist">name of choicelist</param>
    ''' <returns>items as String-Array</returns>
    ''' <remarks></remarks>
    Public Function GetChoicelistItems(ByVal NameChoicelist As String) As DataTable
        Dim dtresult As New DataTable
        dtresult.Columns.Add("RESULT", GetType(String))
        Try
            'Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
            'Dim vType = oAttribute.getVariableValue("vItems")
            'Return vType
            Dim oChoiceList = CurrentSession.GetWMObjectByName(WMEntityChoiceList, NameChoicelist)
            If Err.Number = 0 And TypeName(oChoiceList) <> "Nothing" Then
                Dim Values = oChoiceList
                Values = oChoiceList.GetVariableValue("vItems")
                Dim anz As Integer = 0

                For Each CLItem In Values
                    If oChoiceList.aName IsNot Nothing Then
                        anz += 1
                    End If
                Next
                Dim strListe(anz - 1)
                Dim zahl As Integer = 0
                For Each CLItem In Values
                    If oChoiceList.aName IsNot Nothing Then
                        dtresult.Rows.Add(CLItem)
                        strListe(zahl) = CLItem
                        zahl += 1
                    End If
                    dtresult.AcceptChanges()
                Next
                Return dtresult
            Else
                Logger.Warn("WMchoicelist: " & NameChoicelist & " not found!")
                Return dtresult
            End If

        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
    ''' <summary>
    ''' Returns all Objecttypes of current server as array of strings
    ''' </summary>
    ''' <returns>array(String) of all objecttypes</returns>
    ''' <remarks></remarks>
    Public Function GetObjecttypesAsStrings() As DataTable
        Dim dtresult As New DataTable
        dtresult.Columns.Add("RESULT", GetType(String))
        Try
            For i As Integer = 0 To CurrentObjecttypes.Count
                dtresult.Rows.Add(CurrentObjecttypes.Item(i).aName)
            Next
            dtresult.AcceptChanges()
            Return dtresult
        Catch ex As Exception
            Logger.Error(ex)
            Return dtresult
        End Try
    End Function
    ''' <summary>
    ''' Returns the result of windream-search
    ''' </summary>
    ''' <param name="wdfLocation">filepath of windreamSearch-file</param>
    ''' <param name="NameIndexDocID">Name of the Docid Index </param>
    ''' <returns>Returns datatable</returns>
    ''' <remarks></remarks>
    Public Function GetSearchDocuments(ByVal wdfLocation As String, NameIndexDocID As String)
        Dim dt As New DataTable
        dt.Columns.Add("DOC_ID", GetType(Integer))
        dt.Columns.Add("PATH", GetType(String))
        Try
            Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
            Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)

            CurrentController = New WMOSearchController
            CurrentController.CheckSearchProfile(wdfLocation.ToLower)
            Dim suchTyp = CurrentController.SearchProfileTargetProgID
            Dim ExSettings As Object
            Dim oSearch As Object
            ExSettings = CurrentController.SearchProfileExSettings
            If ExSettings = 0 Then ExSettings = 7

            Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
            Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
            Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
            Dim suchTyp1 = suchTyp.ToString.ToUpper
            ''  Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
            Select Case suchTyp.ToString.ToUpper
                Case "WMOSRCH.WMQUICKSEARCH"
                    srchQuick.WMSession = CreateObject("Windream.WMSession", CurrentWMServer)

                    CurrentWMConnect.LoginSession(srchQuick.WMSession)

                    srchQuick.ClearSearch()
                    srchQuick.SearchProfilePath = ProfilePath
                    srchQuick.LoadSearchProfile(ProfileName)

                    oSearch = srchQuick.GetSearch()

                Case "WMOSRCH.WMINDEXSEARCH"
                    srchIndex.WMSession = CreateObject("Windream.WMSession", CurrentWMServer)

                    CurrentWMConnect.LoginSession(srchIndex.WMSession)

                    srchIndex.ClearSearch()
                    srchIndex.SearchProfilePath = ProfilePath
                    srchIndex.LoadSearchProfile(ProfileName)

                    oSearch = srchIndex.GetSearch()

                Case "WMOSRCH.WMOBJECTTYPESEARCH"
                    srchObjectType.WMSession = CreateObject("Windream.WMSession", CurrentWMServer)

                    CurrentWMConnect.LoginSession(srchObjectType.WMSession)

                    srchObjectType.ClearSearch()
                    srchObjectType.SearchProfilePath = ProfilePath
                    srchObjectType.LoadSearchProfile(ProfileName)

                    oSearch = srchObjectType.GetSearch()

                Case Else
                    MsgBox("KEIN GÜLTIGER WINDREAM-SUCHTYP")
                    Return Nothing
            End Select
            Dim WMObjects As Object
            WMObjects = oSearch.Execute
            'If returnDT = True Then
            If WMObjects.Count > 0 Then

                For Each dok As WMObject In WMObjects
                    Dim path As String = dok.aPath
                    Dim DOC_ID = dok.GetVariableValue(NameIndexDocID)
                    dt.Rows.Add(DOC_ID, path)
                Next
                dt.AcceptChanges()
            End If
            Return dt
        Catch ex As Exception
            Logger.Error(ex)
            Return dt
        End Try
    End Function
    ''' <summary>
    ''' Returns a windream-type as Integer.
    ''' </summary>
    ''' <param name="indexname">Name of indexfield</param>
    ''' <returns>Returns integer, which describes the type</returns>
    ''' <remarks></remarks>
    Public Function GetTypeOfIndexAsInt(ByVal indexname As String) As Integer
        Try
            Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
            Dim vType = oAttribute.getVariableValue("dwAttrType")
            Return vType
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
    ''' <summary>
    ''' Returns the value(s) for an index as a datatable
    ''' </summary>
    ''' <param name="WMFile">filepath of windream-file</param>
    ''' <param name="NameIndex">Name of the index </param>
    ''' <returns>Datatable</returns>
    ''' <remarks></remarks>
    Public Function GetValueforIndex(ByVal WMFile As String, ByVal NameIndex As String) As DataTable
        Dim dt As New DataTable
        dt.Columns.Add("RESULT", GetType(String))
        If TestSession() = False Then
            Return dt
        End If
        Try

            If Not WMFile.StartsWith("\") And WMFile.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                WMFile = WMFile.Substring(2)
            End If
            Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject")  'New WINDREAMLib.WMObject
            Try
                WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMFile) 'WINDREAMLib.WMEntity.WMEntityDocument
            Catch ex As Exception
                Logger.Error(ex)
                Return dt
            End Try

            Dim result = WMObject.GetVariableValue(NameIndex)
            If IsNothing(result) Then
                Return Nothing
            Else
                If result.GetType.ToString.Contains("System.Object") Then
                    For Each val As String In result
                        dt.Rows.Add(val)
                    Next
                    dt.AcceptChanges()
                Else
                    dt.Rows.Add(result)
                End If
            End If
            Return dt
        Catch ex As Exception
            Logger.Error(ex)
            Return dt
        End Try
    End Function
    ''' <summary>
    ''' Returns the values for a vektorfield plus the new ones
    ''' </summary>
    ''' <param name="oDocument">windream-file as Object</param>
    ''' <param name="vktIndexName">Name of the index </param>
    ''' <returns>Returns value as Datatable</returns>
    ''' <remarks></remarks>
    Public Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, arrIndexwerte As Object, vType As Object)
        Try
            Dim missing As Boolean = False
            Dim valueCount As Integer = 0
            Dim ValueArray()
            'Jeden Wert des Vektorfeldes durchlaufen
            Dim DT_RESULT = GetValueforIndex(oDocument.aPath, vktIndexName)
            If DT_RESULT.Rows.Count > 0 Then
                'Erst die aktuellen Werte speichern und schreiben
                For Each row As DataRow In DT_RESULT.Rows

                    ReDim Preserve ValueArray(valueCount)
                    'Den Wert im Array speichern
                    ValueArray(valueCount) = Helpers.Convert_VectorType(vType, row.Item(0))
                    valueCount += 1
                Next
                'Jetzt die Neuen Werte auf Duplikate überprüfen
                For Each NewValue As Object In arrIndexwerte
                    If NewValue Is Nothing = False Then
                        If ValueArray.Contains(NewValue) = False Then
                            'Das Array anpassen
                            ReDim Preserve ValueArray(valueCount)
                            'Den Wert im Array speichern
                            ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
                            valueCount += 1
                        Else
                            Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(1)")

                        End If
                    End If
                Next
            Else
                Logger.Info(" vectorfield is empty....")

                'Den/die Neuen Wert(e) anfügen
                For Each NewValue As Object In arrIndexwerte
                    If NewValue Is Nothing = False Then
                        If ValueArray Is Nothing = False Then
                            If ValueArray.Contains(NewValue) = False Then
                                'Das Array anpassen
                                ReDim Preserve ValueArray(valueCount)
                                'Den Wert im Array speichern
                                ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
                                valueCount += 1
                            Else
                                Logger.Info("Value '" & NewValue.ToString & "' already existing in vectorfield(2)")

                            End If
                        Else 'Dererste Wert, also hinzufügen
                            'Das Array anpassen
                            ReDim Preserve ValueArray(valueCount)
                            'Den Wert im Array speichern
                            ValueArray(valueCount) = Helpers.Convert_VectorType(vType, NewValue)
                            valueCount += 1

                        End If


                    End If
                Next
            End If

            Return ValueArray
        Catch ex As Exception
            Logger.Error(ex)
        End Try
    End Function
    ''' <summary>
    ''' Returns a WMObject if file exists
    ''' </summary>
    ''' <param name="WMPath">full path to the file</param>
    ''' <returns>Returns WMObject</returns>
    ''' <remarks></remarks>
    Public Function GetWMObjectForFile(ByVal WMPath As String) As WMObject
        Try
            If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                WMPath = WMPath.Substring(2)
            End If
            Dim oWMObject As WINDREAMLib.WMObject
            Try
                oWMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath)
            Catch ex As Exception
                Logger.Warn("Could not create WMObject for file '" & WMPath & "': " & ex.Message)
                Return Nothing
            End Try
            Return oWMObject
        Catch ex As Exception
            Logger.Error(ex)
            Return Nothing
        End Try
    End Function
#End Region
#Region "+++++ Test +++++"
    ''' <summary>
    ''' Checks if the folder exists
    ''' </summary>
    ''' <param name="folderpath">The path of the folder</param>
    ''' <returns>True if exists or false if not or error occured</returns>
    ''' <remarks></remarks>
    Public Function TestFolderExists(folderpath As String)
        Try
            If folderpath.StartsWith("\") = False And folderpath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                folderpath = folderpath.Substring(2)
            End If
            Try
                Dim exists = CurrentSession.WMObjectExists(WMEntityFolder, folderpath, 0, 0)
                Return exists
            Catch ex As Exception
                Logger.Error(ex)
                Return False
            End Try
        Catch ex As Exception
            Return False
        End Try
    End Function
    ''' <summary>
    ''' Checks wether file exists in windream
    ''' </summary>
    ''' <param name="WMPath">full path to the file</param>
    ''' <returns>Returns true when file was deleted, false if not</returns>
    ''' <remarks></remarks>
    Public Function TestFileExists(ByVal WMPath As String)
        Try
            If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                WMPath = WMPath.Substring(2)
            End If
            Try
                Dim WMObject As WINDREAMLib.WMObject = CurrentSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WMPath)
            Catch ex As Exception
                Logger.Warn("Could not create WMObject for file '" & WMPath & "' - so it is not existing")
                Return False
            End Try
            Return True
        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
    Private Function TestSession() As Boolean
        Try
            If CurrentSession.aLoggedin Then
                Return True
            Else
                Logger.Warn("There is no active WM-SSession!")
                Return False
            End If
        Catch ex As Exception
            Return False
        End Try
    End Function
#End Region
#Region "+++++ Remove +++++"
    ''' <summary>
    ''' Deletes a file in windream
    ''' </summary>
    ''' <param name="WMPath">full path to the file</param>
    ''' <returns>Returns true when file was deleted, false if not</returns>
    ''' <remarks></remarks>
    Public Function RemFile(ByVal WMPath As String)
        Try
            If WMPath.StartsWith("\") = False And WMPath.ToUpper.StartsWith(WMDriveLetter.ToUpper) Then
                WMPath = WMPath.Substring(2)
            End If
            Dim oWMObject = GetWMObjectForFile(WMPath)
            If IsNothing(oWMObject) = False Then
                oWMObject.Delete()
                Return True
            Else
                Return False
            End If

        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
    ''' <summary>
    ''' Removes the vektorlink from windream
    ''' </summary>
    ''' <param name="WMPath">full path to the file</param>
    ''' <param name="vktIndexName">Indexname of Vektor-Index</param>
    ''' <param name="deleteValue">Value which is to be deleted</param>
    ''' <returns>Returns true when indexing was successfull, false if not</returns>
    ''' <remarks></remarks>
    Public Function REMOVE_VEKTOR_LINK(ByVal WMPath As String, vktIndexName As String, deleteValue As String)
        Try
            Logger.Info("Removing Value '" & deleteValue & "' of Index '" & vktIndexName & "' " & WMPath)
            Dim oWMFile As WINDREAMLib.WMObject = GetWMObjectForFile(WMPath)
            If IsNothing(oWMFile) Then
                Logger.Warn("Exit from REMOVE_VEKTOR_LINK...")
                Return False
            End If
            Dim containsvalue As Boolean = False
            Dim ValueArray()
            'Jeden Wert des Vektorfeldes durchlaufen
            Dim WMValue = oWMFile.GetVariableValue(vktIndexName)
            If WMValue Is Nothing = False Then
                'Nochmals prüfen ob wirklich Array
                If WMValue.GetType.ToString.Contains("System.Object") Then
                    ' das entsprechende Attribut aus windream auslesen
                    Dim oAttribute = CurrentSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, vktIndexName)
                    ' den Variablentyp (String, Integer, ...) auslesen 
                    Dim vType = oAttribute.getVariableValue("dwAttrType")
                    Dim Anzahl As Integer = 0
                    For Each WDValue As Object In WMValue
                        If WDValue Is Nothing = False Then
                            If WDValue = deleteValue Then
                                containsvalue = True
                                Logger.Info("The Index contains the value to be deleted!")
                            End If
                            If WDValue <> deleteValue Then
                                'Erst die ALten Werte schreiben
                                ReDim Preserve ValueArray(Anzahl)
                                'Den Wert im Array speichern
                                ValueArray(Anzahl) = Helpers.Convert_VectorType(vType, WDValue)
                                Anzahl += 1
                            End If
                        End If
                    Next
                Else
                    Logger.Warn("Index is not a vector")
                    Return False
                End If
            Else
                Logger.Warn("oWMObject is nothing")
                Return True
            End If

            If containsvalue = True Then 'And Not IsNothing(ValueArray)
                If NewLockWMFile(oWMFile) = False Then
                    Return False
                End If
                'Indexiern des Vektorfeldes
                oWMFile.SetVariableValue(vktIndexName, ValueArray)
                ' die Indexinformationen des Dokuments speichern
                oWMFile.Save()
                Logger.Info("The new vectorvalues were saved!")
                ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, 
                Try
                    ' die Sperrung des Dokuments aufheben
                    oWMFile.unlock()

                Catch ex As Exception
                    ' nichts tun (Datei war nicht gesperrt)
                End Try
                'Zurückgeben
                Return True
            Else
                Logger.Info("containsvalue is not true")
                Return True
            End If

        Catch ex As Exception
            Logger.Error(ex)
            Return False
        End Try
    End Function
#End Region


End Class