MS_24.07_2

Global_Indexer/ClassFilehandle.vb

@@ -0,0 +1,99 @@
+Imports System.IO
+Imports Independentsoft
+
+Public Class ClassFilehandle
+    Public Shared Function Decide_FileHandle(filename As String, handletype As String)
+        Try
+            If filename.EndsWith(".msg") Then
+                CURRENT_MESSAGEID = ""
+                Dim _msg As New Msg.Message(filename)
+                If _msg.Attachments.Count > 0 Then
+                    Dim result As MsgBoxResult
+                    result = MessageBox.Show("Achtung: Die Email enthält Anhänge!" & vbNewLine & "Wollen Sie die Anhänge separat indexieren und herauslösen?", "Nachfrage zur Indexierung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+                    If result = MsgBoxResult.Yes Then
+                        If handletype.StartsWith("@FW") Then
+                            Return Email_Decay(filename, True)
+                        Else
+                            Return Email_Decay(filename)
+                        End If
+                    End If
+                End If
+            End If
+            Return Insert_GI_File(filename, handletype)
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Decide_FileHandle: " & ex.Message, MsgBoxStyle.Critical)
+            Return False
+        End Try
+    End Function
+    Private Shared Function Email_Decay(msgname As String, Optional FW As Boolean = False)
+        Try
+            Dim msgonly As String = "@MSGONLY@"
+            Dim ATT_EXTR As String = "@ATTMNTEXTRACTED@"
+            If FW = True Then
+                msgonly = "@FW_MSGONLY@"
+                ATT_EXTR = "@FW_ATTMNTEXTRACTED@"
+            End If
+            Dim erfolgreich As Boolean = False
+            Dim msg As New Msg.Message(msgname)
+
+            If Not msg.InternetMessageId Is Nothing Then
+                CURRENT_MESSAGEID = msg.InternetMessageId
+            End If
+
+            'Nur die MSGDatei ablegen
+            Dim tempfile As String = Path.Combine(Path.GetTempPath, Path.GetFileNameWithoutExtension(msgname) & "_excl_att.msg")
+            If File.Exists(tempfile) Then
+                File.Delete(tempfile)
+            End If
+            Dim _msgEXAtt As New Msg.Message(msgname)
+            _msgEXAtt.Attachments.Clear()
+            _msgEXAtt.Save(tempfile)
+            If Insert_GI_File(tempfile, msgonly) = True Then
+                erfolgreich = True
+                'Hier nun die Anhänge herauslösen
+                Dim _msg As New Msg.Message(msgname)
+                Dim i1 As Integer = 1
+
+                If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl der Attachments: " & _msg.Attachments.Count, False)
+                For Each attachment As Independentsoft.Msg.Attachment In _msg.Attachments
+                    If erfolgreich = False Then
+                        Exit For
+                    End If
+                    Dim attachment_name As String
+                    If attachment.LongFileName Is Nothing Then
+                        attachment_name = attachment.DisplayName
+                    Else
+                        attachment_name = attachment.LongFileName
+                    End If
+                    If Not attachment_name.Contains("inline") Then
+                        tempfile = Path.Combine(Path.GetTempPath, attachment_name)
+                        If File.Exists(tempfile) Then
+                            File.Delete(tempfile)
+                        End If
+                        attachment.Save(tempfile)
+                        If LogErrorsOnly = False Then ClassLogger.Add(">> Attachment (" & i1 & "):" & tempfile, False)
+                        'nun der Insert des Anhanges
+                        erfolgreich = Insert_GI_File(tempfile, ATT_EXTR)
+                        i1 += 1
+                    End If
+
+                Next
+            End If
+            Return erfolgreich
+        Catch ex As Exception
+            MsgBox("Error in Email_Decay: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Private Shared Function Insert_GI_File(filename As String, handleType As String)
+        Try
+            Dim filename_only As String = Path.GetFileName(filename)
+
+            Dim ins As String = "INSERT INTO TBGI_FILES_USER (FILENAME2WORK, USER@WORK,HANDLE_TYPE,FILENAME_ONLY) VALUES ('" & filename & "','" & Environment.UserName & "','" & handleType & "','" & filename_only & "')"
+            Return ClassDatabase.Execute_non_Query(ins, True)
+
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+End Class

Global_Indexer/frmHistory.Designer.vb

@@ -0,0 +1,298 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmHistory
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmHistory))
+        Me.TBGI_HISTORYBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
+        Me.TBGI_HISTORYBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.MyDataset = New Global_Indexer.MyDataset()
+        Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
+        Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
+        Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
+        Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
+        Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
+        Me.TBGI_HISTORYTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter()
+        Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
+        Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
+        Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colFILENAME_ORIGINAL = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colFILENAME_NEW = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn()
+        Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
+        Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
+        CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TBGI_HISTORYBindingNavigator.SuspendLayout()
+        CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'TBGI_HISTORYBindingNavigator
+        '
+        Me.TBGI_HISTORYBindingNavigator.AddNewItem = Nothing
+        Me.TBGI_HISTORYBindingNavigator.BindingSource = Me.TBGI_HISTORYBindingSource
+        Me.TBGI_HISTORYBindingNavigator.CountItem = Me.BindingNavigatorCountItem
+        Me.TBGI_HISTORYBindingNavigator.CountItemFormat = "von {0} heute indexierten Dateien"
+        Me.TBGI_HISTORYBindingNavigator.DeleteItem = Nothing
+        Me.TBGI_HISTORYBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.ToolStripButton2})
+        Me.TBGI_HISTORYBindingNavigator.Location = New System.Drawing.Point(0, 0)
+        Me.TBGI_HISTORYBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
+        Me.TBGI_HISTORYBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
+        Me.TBGI_HISTORYBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
+        Me.TBGI_HISTORYBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
+        Me.TBGI_HISTORYBindingNavigator.Name = "TBGI_HISTORYBindingNavigator"
+        Me.TBGI_HISTORYBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
+        Me.TBGI_HISTORYBindingNavigator.Size = New System.Drawing.Size(1089, 25)
+        Me.TBGI_HISTORYBindingNavigator.TabIndex = 0
+        Me.TBGI_HISTORYBindingNavigator.Text = "BindingNavigator1"
+        '
+        'TBGI_HISTORYBindingSource
+        '
+        Me.TBGI_HISTORYBindingSource.DataMember = "TBGI_HISTORY"
+        Me.TBGI_HISTORYBindingSource.DataSource = Me.MyDataset
+        '
+        'MyDataset
+        '
+        Me.MyDataset.DataSetName = "MyDataset"
+        Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'BindingNavigatorCountItem
+        '
+        Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
+        Me.BindingNavigatorCountItem.Size = New System.Drawing.Size(181, 22)
+        Me.BindingNavigatorCountItem.Text = "von {0} heute indexierten Dateien"
+        Me.BindingNavigatorCountItem.ToolTipText = "Die Gesamtanzahl der Elemente."
+        '
+        'BindingNavigatorMoveFirstItem
+        '
+        Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveFirstItem.Image = CType(resources.GetObject("BindingNavigatorMoveFirstItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
+        Me.BindingNavigatorMoveFirstItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveFirstItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveFirstItem.Text = "Erste verschieben"
+        '
+        'BindingNavigatorMovePreviousItem
+        '
+        Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMovePreviousItem.Image = CType(resources.GetObject("BindingNavigatorMovePreviousItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
+        Me.BindingNavigatorMovePreviousItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMovePreviousItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMovePreviousItem.Text = "Vorherige verschieben"
+        '
+        'BindingNavigatorSeparator
+        '
+        Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
+        Me.BindingNavigatorSeparator.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorPositionItem
+        '
+        Me.BindingNavigatorPositionItem.AccessibleName = "Position"
+        Me.BindingNavigatorPositionItem.AutoSize = False
+        Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
+        Me.BindingNavigatorPositionItem.Size = New System.Drawing.Size(50, 23)
+        Me.BindingNavigatorPositionItem.Text = "0"
+        Me.BindingNavigatorPositionItem.ToolTipText = "Aktuelle Position"
+        '
+        'BindingNavigatorSeparator1
+        '
+        Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
+        Me.BindingNavigatorSeparator1.Size = New System.Drawing.Size(6, 25)
+        '
+        'BindingNavigatorMoveNextItem
+        '
+        Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveNextItem.Image = CType(resources.GetObject("BindingNavigatorMoveNextItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
+        Me.BindingNavigatorMoveNextItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveNextItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveNextItem.Text = "Nächste verschieben"
+        '
+        'BindingNavigatorMoveLastItem
+        '
+        Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BindingNavigatorMoveLastItem.Image = CType(resources.GetObject("BindingNavigatorMoveLastItem.Image"), System.Drawing.Image)
+        Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
+        Me.BindingNavigatorMoveLastItem.RightToLeftAutoMirrorImage = True
+        Me.BindingNavigatorMoveLastItem.Size = New System.Drawing.Size(23, 22)
+        Me.BindingNavigatorMoveLastItem.Text = "Letzte verschieben"
+        '
+        'BindingNavigatorSeparator2
+        '
+        Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
+        Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
+        '
+        'TBGI_HISTORYTableAdapter
+        '
+        Me.TBGI_HISTORYTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.Connection = Nothing
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
+        Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'GridControl1
+        '
+        Me.GridControl1.DataSource = Me.TBGI_HISTORYBindingSource
+        Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControl1.Location = New System.Drawing.Point(0, 25)
+        Me.GridControl1.MainView = Me.GridView1
+        Me.GridControl1.Name = "GridControl1"
+        Me.GridControl1.Size = New System.Drawing.Size(1089, 337)
+        Me.GridControl1.TabIndex = 1
+        Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
+        '
+        'GridView1
+        '
+        Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Aqua
+        Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
+        Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colFILENAME_ORIGINAL, Me.colFILENAME_NEW, Me.colADDED_WHEN})
+        Me.GridView1.GridControl = Me.GridControl1
+        Me.GridView1.Name = "GridView1"
+        Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
+        Me.GridView1.OptionsView.ShowFilterPanelMode = DevExpress.XtraGrid.Views.Base.ShowFilterPanelMode.ShowAlways
+        '
+        'colGUID
+        '
+        Me.colGUID.Caption = "ID"
+        Me.colGUID.FieldName = "GUID"
+        Me.colGUID.Name = "colGUID"
+        Me.colGUID.Visible = True
+        Me.colGUID.VisibleIndex = 0
+        Me.colGUID.Width = 65
+        '
+        'colFILENAME_ORIGINAL
+        '
+        Me.colFILENAME_ORIGINAL.Caption = "Original Filename"
+        Me.colFILENAME_ORIGINAL.FieldName = "FILENAME_ORIGINAL"
+        Me.colFILENAME_ORIGINAL.Name = "colFILENAME_ORIGINAL"
+        Me.colFILENAME_ORIGINAL.Visible = True
+        Me.colFILENAME_ORIGINAL.VisibleIndex = 1
+        Me.colFILENAME_ORIGINAL.Width = 315
+        '
+        'colFILENAME_NEW
+        '
+        Me.colFILENAME_NEW.Caption = "Filename New"
+        Me.colFILENAME_NEW.FieldName = "FILENAME_NEW"
+        Me.colFILENAME_NEW.Name = "colFILENAME_NEW"
+        Me.colFILENAME_NEW.Visible = True
+        Me.colFILENAME_NEW.VisibleIndex = 2
+        Me.colFILENAME_NEW.Width = 368
+        '
+        'colADDED_WHEN
+        '
+        Me.colADDED_WHEN.Caption = "Erstellt wann"
+        Me.colADDED_WHEN.DisplayFormat.FormatType = DevExpress.Utils.FormatType.DateTime
+        Me.colADDED_WHEN.FieldName = "ADDED_WHEN"
+        Me.colADDED_WHEN.Name = "colADDED_WHEN"
+        Me.colADDED_WHEN.Visible = True
+        Me.colADDED_WHEN.VisibleIndex = 3
+        Me.colADDED_WHEN.Width = 140
+        '
+        'ToolStripButton1
+        '
+        Me.ToolStripButton1.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton1.Name = "ToolStripButton1"
+        Me.ToolStripButton1.Size = New System.Drawing.Size(122, 22)
+        Me.ToolStripButton1.Text = "Alle Dateien laden"
+        '
+        'ToolStripButton2
+        '
+        Me.ToolStripButton2.Image = Global.Global_Indexer.My.Resources.Resources.refresh_16xLG
+        Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
+        Me.ToolStripButton2.Name = "ToolStripButton2"
+        Me.ToolStripButton2.Size = New System.Drawing.Size(117, 22)
+        Me.ToolStripButton2.Text = "ToolStripButton2"
+        '
+        'frmHistory
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1089, 362)
+        Me.Controls.Add(Me.GridControl1)
+        Me.Controls.Add(Me.TBGI_HISTORYBindingNavigator)
+        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Name = "frmHistory"
+        Me.Text = "History - Dateien indexiert"
+        CType(Me.TBGI_HISTORYBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TBGI_HISTORYBindingNavigator.ResumeLayout(False)
+        Me.TBGI_HISTORYBindingNavigator.PerformLayout()
+        CType(Me.TBGI_HISTORYBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDataset, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents MyDataset As Global_Indexer.MyDataset
+    Friend WithEvents TBGI_HISTORYBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents TBGI_HISTORYTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_HISTORYTableAdapter
+    Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents TBGI_HISTORYBindingNavigator As System.Windows.Forms.BindingNavigator
+    Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
+    Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
+    Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
+    Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colFILENAME_ORIGINAL As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colFILENAME_NEW As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn
+    Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
+    Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
+End Class

Global_Indexer/frmHistory.vb

@@ -0,0 +1,10 @@
+Public Class frmHistory
+
+    Private Sub frmHistory_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBGI_HISTORY". Sie können sie bei Bedarf verschieben oder entfernen.
+        Dim user As String = Environment.UserDomainName & "\" & Environment.UserName
+        TBGI_HISTORYTableAdapter.Connection.ConnectionString = MyConnectionString
+        Me.TBGI_HISTORYTableAdapter.Fill(Me.MyDataset.TBGI_HISTORY, user)
+
+    End Sub
+End Class

Global_Indexer/frmIndexFileList.Designer.vb

@@ -0,0 +1,178 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmIndexFileList
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmIndexFileList))
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnstartIndex = New System.Windows.Forms.Button()
+        Me.CheckedListBoxControl1 = New DevExpress.XtraEditors.CheckedListBoxControl()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.TBGI_FILES_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.MyDataset1 = New Global_Indexer.MyDataset()
+        Me.TBGI_FILES_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter()
+        Me.TableAdapterManager = New Global_Indexer.MyDatasetTableAdapters.TableAdapterManager()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Panel1.SuspendLayout()
+        CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(648, 44)
+        Me.Panel1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 9)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(440, 30)
+        Me.Label1.TabIndex = 0
+        Me.Label1.Text = "Folgende Dateien werden zur Indexierung angeboten! " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Sie haben nun Möglichkeit di" & _
+    "e Indexierung für ausgewählte Dateien zu verhindern."
+        '
+        'btnstartIndex
+        '
+        Me.btnstartIndex.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.btnstartIndex.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.btnstartIndex.Image = Global.Global_Indexer.My.Resources.Resources.Go
+        Me.btnstartIndex.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnstartIndex.Location = New System.Drawing.Point(491, 232)
+        Me.btnstartIndex.Name = "btnstartIndex"
+        Me.btnstartIndex.Size = New System.Drawing.Size(145, 36)
+        Me.btnstartIndex.TabIndex = 3
+        Me.btnstartIndex.Text = "Starte Indexierung"
+        Me.btnstartIndex.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnstartIndex.UseVisualStyleBackColor = True
+        '
+        'CheckedListBoxControl1
+        '
+        Me.CheckedListBoxControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CheckedListBoxControl1.Appearance.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.CheckedListBoxControl1.Appearance.Options.UseFont = True
+        Me.CheckedListBoxControl1.Location = New System.Drawing.Point(6, 50)
+        Me.CheckedListBoxControl1.Name = "CheckedListBoxControl1"
+        Me.CheckedListBoxControl1.Size = New System.Drawing.Size(630, 176)
+        Me.CheckedListBoxControl1.TabIndex = 4
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(6, 232)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(115, 23)
+        Me.Button1.TabIndex = 5
+        Me.Button1.Text = "Alle auswählen"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'TBGI_FILES_USERBindingSource
+        '
+        Me.TBGI_FILES_USERBindingSource.DataMember = "TBGI_FILES_USER"
+        Me.TBGI_FILES_USERBindingSource.DataSource = Me.MyDataset1
+        '
+        'MyDataset1
+        '
+        Me.MyDataset1.DataSetName = "MyDataset"
+        Me.MyDataset1.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
+        '
+        'TBGI_FILES_USERTableAdapter
+        '
+        Me.TBGI_FILES_USERTableAdapter.ClearBeforeFill = True
+        '
+        'TableAdapterManager
+        '
+        Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
+        Me.TableAdapterManager.Connection = Nothing
+        Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_GROUPS_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MAN_POSTPROCESSINGTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_INDEX_MANTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing
+        Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_CONFIGURATIONTableAdapter = Nothing
+        Me.TableAdapterManager.TBGI_OBJECTTYPE_EMAIL_INDEXTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNS_REWORKTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PATTERNSTableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_USER_PROFILETableAdapter = Nothing
+        Me.TableAdapterManager.TBHOTKEY_WINDOW_HOOKTableAdapter = Nothing
+        Me.TableAdapterManager.UpdateOrder = Global_Indexer.MyDatasetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete
+        '
+        'Button2
+        '
+        Me.Button2.Location = New System.Drawing.Point(6, 259)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(115, 23)
+        Me.Button2.TabIndex = 6
+        Me.Button2.Text = "Alle unselektieren"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'frmIndexFileList
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(648, 294)
+        Me.ControlBox = False
+        Me.Controls.Add(Me.Button2)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.CheckedListBoxControl1)
+        Me.Controls.Add(Me.btnstartIndex)
+        Me.Controls.Add(Me.Panel1)
+        Me.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
+        Me.Name = "frmIndexFileList"
+        Me.Text = "Zu indexierende Dateien:"
+        Me.TopMost = True
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        CType(Me.CheckedListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TBGI_FILES_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.MyDataset1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents MyDataset1 As Global_Indexer.MyDataset
+    Friend WithEvents TBGI_FILES_USERBindingSource As System.Windows.Forms.BindingSource
+    Friend WithEvents TBGI_FILES_USERTableAdapter As Global_Indexer.MyDatasetTableAdapters.TBGI_FILES_USERTableAdapter
+    Friend WithEvents TableAdapterManager As Global_Indexer.MyDatasetTableAdapters.TableAdapterManager
+    Friend WithEvents btnstartIndex As System.Windows.Forms.Button
+    Friend WithEvents CheckedListBoxControl1 As DevExpress.XtraEditors.CheckedListBoxControl
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+End Class

Global_Indexer/frmIndexFileList.resx

@@ -0,0 +1,185 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="TBGI_FILES_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>134, 17</value>
+  </metadata>
+  <metadata name="MyDataset1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <metadata name="TBGI_FILES_USERTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>357, 17</value>
+  </metadata>
+  <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>574, 17</value>
+  </metadata>
+  <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
+  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAABAAMAEBAQAAEABAAoAQAANgAAABAQAAABAAgAaAUAAF4BAAAQEAAAAQAgAGgEAADGBgAAKAAAABAA
+        AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
+        AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAP///////wAA93d3d3d/AAD3d3d3
+        d38AAPd////3fwAA93////d/AAD3f///938AD/d////3fwD3eH////d/D3Zn////93/3ZmZ///d3f/Z2
+        Z2//93fw9/Zvf3d3fwD/9m//d3fwAPD2bw///wAAAP//AAAAAAAAAAAAAAAAAPAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAOAAAADAAAAAgAAAAAAAAAAAAQAAAAMAAAAHAABCDwAAw/8AAP//AAAoAAAAEAAAACAA
+        AAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJCQgCcUwAAvpBcAIaGhgCzs7MA8e/wAPTz
+        9AD29vYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAICAgICAgICAgICAgAAAAACAEBAQEB
+        AQEBAQEIAAAAAAgBAQEBAQEBAQEBCAAAAAAIAQEGBgYGBgYBAQgAAAAACAEBBgYGBgYGAQEIAAAAAAgB
+        AQYGBgYGBgEBCAAAAAgIAQEGBgYGBgYBAQgAAAgDAwUBBgYGBgYGAQEIAAgDAgIDCAYGBgYGBgEBCAgD
+        AgICAgMIBgYGAQEBBAgIAgMCAgMCCAYGBgEBBAgACAMIAgIIAwgBAQEBBAgAAAgICAICCAgIAQEBBAgA
+        AAAIAAgCAggACAgICAgAAAAAAAAICAgIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAA
+        AADwAAAA8AAAAPAAAADgAAAAwAAAAIAAAAAAAAAAAAEAAAADAAAABwAAQg8AAMP/AAD//wAAKAAAABAA
+        AAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vb/9vb2//b2
+        9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v8AAAAAAAAAAAAAAAAAAAAA9vb2/0JC
+        Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/AAAAAAAAAAAAAAAAAAAAAPb2
+        9v9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2/wAAAAAAAAAAAAAAAAAA
+        AAD29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b29v8AAAAAAAAAAAAA
+        AAAAAAAA9vb2/0JCQv9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JCQv/29vb/AAAAAAAA
+        AAAAAAAA9vb2MPb29v9CQkL/QkJC//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JCQv9CQkL/9vb2/wAA
+        AAAAAAAA9vb2MPb29u/29vb/QkJC/0JCQv/x7/D/8e/w//Hv8P/x7/D/8e/w//Hv8P9CQkL/QkJC//b2
+        9v8AAAAA9vb2MPb29u++kFz/vpBc/7Ozs/9CQkL/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv/29vb/9vb2MPb29u++kFz/nFMA/5xTAP++kFz/9vb2//Hv8P/x7/D/8e/w//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/9vb2//b29u++kFz/nFMA/5xTAP+cUwD/nFMA/76QXP/08/T/8e/w//Hv8P/x7/D/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vb/nFMA/76QXP+cUwD/nFMA/76QXP+cUwD/9vb2//Hv8P/x7/D/8e/w/0JC
+        Qv9CQkL/hoaG//b29u/29vYw9vb2/76QXP/29vb/nFMA/5xTAP/29vb/vpBc//b29v9CQkL/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAPb29v/29vbv9vb2/5xTAP+cUwD/9vb2//b29u/29vb/QkJC/0JC
+        Qv9CQkL/hoaG//b29u/29vYwAAAAAAAAAAD29vbv9vb2MPb29v+cUwD/nFMA//b29v/29vYw9vb2//b2
+        9v/29vb/9vb2//b29u/29vYwAAAAAAAAAAAAAAAA9vb2MAAAAAD29vb/9vb2//b29v/29vb/AAAAAPb2
+        9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADwAAAA8AAAAPAAAADwAAAA8AAAAOAA
+        AADAAAAAgAAAAAAAAAAAAAAAAAAAAAABAAAAAwAAAAcAAEL/AAD//wAA
+</value>
+  </data>
+</root>

Global_Indexer/frmIndexFileList.vb

@@ -0,0 +1,41 @@
+Public Class frmIndexFileList
+
+    Private Sub frmIndexFileList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
+            'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset1.TBGI_FILES_USER". Sie können sie bei Bedarf verschieben oder entfernen.
+            Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
+
+        
+                If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+                CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+                CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+                CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+                End If
+
+        Catch ex As Exception
+            MsgBox("Error in Load Form: " & ex.Message, MsgBoxStyle.Critical)
+        End Try
+       
+    End Sub
+
+    Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
+        For Each item In CheckedListBoxControl1.CheckedItems
+            Dim row As DataRowView = CType(item, DataRowView)
+            ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE GUID = " & row.Item(0), True)
+        Next
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        CheckedListBoxControl1.CheckAll()
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        CheckedListBoxControl1.UnCheckAll()
+    End Sub
+
+    Private Sub frmIndexFileList_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        Me.BringToFront()
+    End Sub
+End Class