MS FolderImport

ZooFlow/Modules/frmFolderImport.Designer.vb

@@ -0,0 +1,644 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmFolderImport
+    Inherits DevExpress.XtraBars.Ribbon.RibbonForm
+
+    '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()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFolderImport))
+        Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl()
+        Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem2 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarEditItem1 = New DevExpress.XtraBars.BarEditItem()
+        Me.RepositoryItemProgressBar1 = New DevExpress.XtraEditors.Repository.RepositoryItemProgressBar()
+        Me.BarButtonItem3 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem4 = New DevExpress.XtraBars.BarButtonItem()
+        Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
+        Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
+        Me.txtFolderbrowser = New System.Windows.Forms.TextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.FolderBrowserDialog1 = New System.Windows.Forms.FolderBrowserDialog()
+        Me.cmbDoctype = New System.Windows.Forms.ComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.txtRegex = New System.Windows.Forms.TextBox()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.btnMoveTo = New System.Windows.Forms.Button()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.txtMoveTo = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.NumSplitIndex = New System.Windows.Forms.NumericUpDown()
+        Me.txtSplitCharacter = New System.Windows.Forms.TextBox()
+        Me.LabelControl1 = New DevExpress.XtraEditors.LabelControl()
+        Me.cmbAttribute = New System.Windows.Forms.ComboBox()
+        Me.LabelControl2 = New DevExpress.XtraEditors.LabelControl()
+        Me.NumericUpDownLimit = New System.Windows.Forms.NumericUpDown()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtTitle = New System.Windows.Forms.TextBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.cmbProfile = New System.Windows.Forms.ComboBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.Label10 = New System.Windows.Forms.Label()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.txtAddedWho = New System.Windows.Forms.TextBox()
+        Me.txtAddedWhen = New System.Windows.Forms.TextBox()
+        Me.txtChangedWho = New System.Windows.Forms.TextBox()
+        Me.txtChangedWhen = New System.Windows.Forms.TextBox()
+        Me.Label13 = New System.Windows.Forms.Label()
+        Me.txtProfilID = New System.Windows.Forms.TextBox()
+        Me.GridControlSplit = New DevExpress.XtraGrid.GridControl()
+        Me.GridViewSplit = New DevExpress.XtraGrid.Views.Grid.GridView()
+        Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl()
+        Me.XtraTabPageSplit = New DevExpress.XtraTab.XtraTabPage()
+        Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.RibbonPageGroup4 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
+        Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem()
+        Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem()
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.XtraTabControl1.SuspendLayout()
+        Me.XtraTabPageSplit.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'RibbonControl1
+        '
+        Me.RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Green
+        Me.RibbonControl1.ExpandCollapseItem.Id = 0
+        Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarEditItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6})
+        Me.RibbonControl1.Location = New System.Drawing.Point(0, 0)
+        Me.RibbonControl1.MaxItemId = 8
+        Me.RibbonControl1.Name = "RibbonControl1"
+        Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
+        Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
+        Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
+        Me.RibbonControl1.Size = New System.Drawing.Size(894, 158)
+        Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
+        '
+        'BarButtonItem1
+        '
+        Me.BarButtonItem1.Caption = "Importiere Dateien"
+        Me.BarButtonItem1.Id = 1
+        Me.BarButtonItem1.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem1.Name = "BarButtonItem1"
+        '
+        'BarButtonItem2
+        '
+        Me.BarButtonItem2.Caption = "Verarbeitung"
+        Me.BarButtonItem2.Id = 2
+        Me.BarButtonItem2.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem2.Name = "BarButtonItem2"
+        '
+        'BarEditItem1
+        '
+        Me.BarEditItem1.Caption = "Fortschritt Import"
+        Me.BarEditItem1.Edit = Me.RepositoryItemProgressBar1
+        Me.BarEditItem1.EditWidth = 130
+        Me.BarEditItem1.Id = 3
+        Me.BarEditItem1.Name = "BarEditItem1"
+        Me.BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.OnlyInCustomizing
+        '
+        'RepositoryItemProgressBar1
+        '
+        Me.RepositoryItemProgressBar1.Name = "RepositoryItemProgressBar1"
+        Me.RepositoryItemProgressBar1.Step = 1
+        '
+        'BarButtonItem3
+        '
+        Me.BarButtonItem3.Caption = "Speichern"
+        Me.BarButtonItem3.Id = 4
+        Me.BarButtonItem3.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem3.Name = "BarButtonItem3"
+        '
+        'BarButtonItem4
+        '
+        Me.BarButtonItem4.Caption = "Hinzufügen"
+        Me.BarButtonItem4.Id = 5
+        Me.BarButtonItem4.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem4.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem4.Name = "BarButtonItem4"
+        '
+        'RibbonPage1
+        '
+        Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroup4})
+        Me.RibbonPage1.Name = "RibbonPage1"
+        Me.RibbonPage1.Text = "Start"
+        '
+        'RibbonPageGroup1
+        '
+        Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1)
+        Me.RibbonPageGroup1.Name = "RibbonPageGroup1"
+        Me.RibbonPageGroup1.Text = "Verarbeiten"
+        '
+        'RibbonPageGroup2
+        '
+        Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem2)
+        Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
+        Me.RibbonPageGroup2.Text = "Prüfen..."
+        '
+        'RibbonPageGroup3
+        '
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem3)
+        Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem4)
+        Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
+        Me.RibbonPageGroup3.Text = "Aktionen"
+        '
+        'RibbonStatusBar1
+        '
+        Me.RibbonStatusBar1.ItemLinks.Add(Me.BarEditItem1)
+        Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 660)
+        Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
+        Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
+        Me.RibbonStatusBar1.Size = New System.Drawing.Size(894, 24)
+        '
+        'RibbonPage2
+        '
+        Me.RibbonPage2.Name = "RibbonPage2"
+        Me.RibbonPage2.Text = "RibbonPage2"
+        '
+        'txtFolderbrowser
+        '
+        Me.txtFolderbrowser.Location = New System.Drawing.Point(15, 285)
+        Me.txtFolderbrowser.Name = "txtFolderbrowser"
+        Me.txtFolderbrowser.Size = New System.Drawing.Size(729, 22)
+        Me.txtFolderbrowser.TabIndex = 2
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 269)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(95, 13)
+        Me.Label1.TabIndex = 3
+        Me.Label1.Text = "Pfad mit Dateien:"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(750, 284)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(38, 23)
+        Me.Button1.TabIndex = 4
+        Me.Button1.Text = "..."
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'cmbDoctype
+        '
+        Me.cmbDoctype.FormattingEnabled = True
+        Me.cmbDoctype.Location = New System.Drawing.Point(382, 244)
+        Me.cmbDoctype.Name = "cmbDoctype"
+        Me.cmbDoctype.Size = New System.Drawing.Size(278, 21)
+        Me.cmbDoctype.TabIndex = 7
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(379, 228)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(75, 13)
+        Me.Label2.TabIndex = 8
+        Me.Label2.Text = "Dokumentart"
+        '
+        'txtRegex
+        '
+        Me.txtRegex.Location = New System.Drawing.Point(15, 367)
+        Me.txtRegex.Name = "txtRegex"
+        Me.txtRegex.Size = New System.Drawing.Size(281, 22)
+        Me.txtRegex.TabIndex = 9
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(12, 351)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(106, 13)
+        Me.Label3.TabIndex = 10
+        Me.Label3.Text = "Regex Dateinamen:"
+        '
+        'btnMoveTo
+        '
+        Me.btnMoveTo.Location = New System.Drawing.Point(750, 324)
+        Me.btnMoveTo.Name = "btnMoveTo"
+        Me.btnMoveTo.Size = New System.Drawing.Size(38, 23)
+        Me.btnMoveTo.TabIndex = 15
+        Me.btnMoveTo.Text = "..."
+        Me.btnMoveTo.UseVisualStyleBackColor = True
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(12, 310)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(144, 13)
+        Me.Label4.TabIndex = 14
+        Me.Label4.Text = "Sicherungsort nach Erfolg:"
+        '
+        'txtMoveTo
+        '
+        Me.txtMoveTo.Location = New System.Drawing.Point(15, 326)
+        Me.txtMoveTo.Name = "txtMoveTo"
+        Me.txtMoveTo.Size = New System.Drawing.Size(729, 22)
+        Me.txtMoveTo.TabIndex = 13
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(6, 18)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(83, 13)
+        Me.Label5.TabIndex = 16
+        Me.Label5.Text = "Split-Character"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(95, 18)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(49, 13)
+        Me.Label6.TabIndex = 17
+        Me.Label6.Text = "Position"
+        '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.NumSplitIndex)
+        Me.GroupBox1.Controls.Add(Me.txtSplitCharacter)
+        Me.GroupBox1.Controls.Add(Me.Label5)
+        Me.GroupBox1.Controls.Add(Me.Label6)
+        Me.GroupBox1.Location = New System.Drawing.Point(509, 445)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(163, 66)
+        Me.GroupBox1.TabIndex = 19
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Splitdefinition"
+        '
+        'NumSplitIndex
+        '
+        Me.NumSplitIndex.Location = New System.Drawing.Point(98, 35)
+        Me.NumSplitIndex.Maximum = New Decimal(New Integer() {10, 0, 0, 0})
+        Me.NumSplitIndex.Name = "NumSplitIndex"
+        Me.NumSplitIndex.Size = New System.Drawing.Size(46, 22)
+        Me.NumSplitIndex.TabIndex = 18
+        '
+        'txtSplitCharacter
+        '
+        Me.txtSplitCharacter.Location = New System.Drawing.Point(9, 34)
+        Me.txtSplitCharacter.Name = "txtSplitCharacter"
+        Me.txtSplitCharacter.Size = New System.Drawing.Size(27, 22)
+        Me.txtSplitCharacter.TabIndex = 17
+        Me.txtSplitCharacter.Text = "-"
+        '
+        'LabelControl1
+        '
+        Me.LabelControl1.Location = New System.Drawing.Point(661, 428)
+        Me.LabelControl1.Name = "LabelControl1"
+        Me.LabelControl1.Size = New System.Drawing.Size(105, 13)
+        Me.LabelControl1.TabIndex = 20
+        Me.LabelControl1.Text = "Deskriptives Attribut"
+        '
+        'cmbAttribute
+        '
+        Me.cmbAttribute.FormattingEnabled = True
+        Me.cmbAttribute.Location = New System.Drawing.Point(661, 445)
+        Me.cmbAttribute.Name = "cmbAttribute"
+        Me.cmbAttribute.Size = New System.Drawing.Size(233, 21)
+        Me.cmbAttribute.TabIndex = 21
+        '
+        'LabelControl2
+        '
+        Me.LabelControl2.Location = New System.Drawing.Point(299, 351)
+        Me.LabelControl2.Name = "LabelControl2"
+        Me.LabelControl2.Size = New System.Drawing.Size(77, 13)
+        Me.LabelControl2.TabIndex = 22
+        Me.LabelControl2.Text = "Limit FileCount"
+        '
+        'NumericUpDownLimit
+        '
+        Me.NumericUpDownLimit.Location = New System.Drawing.Point(299, 367)
+        Me.NumericUpDownLimit.Name = "NumericUpDownLimit"
+        Me.NumericUpDownLimit.Size = New System.Drawing.Size(74, 22)
+        Me.NumericUpDownLimit.TabIndex = 23
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(12, 228)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(29, 13)
+        Me.Label7.TabIndex = 26
+        Me.Label7.Text = "Titel"
+        '
+        'txtTitle
+        '
+        Me.txtTitle.Location = New System.Drawing.Point(15, 244)
+        Me.txtTitle.Name = "txtTitle"
+        Me.txtTitle.Size = New System.Drawing.Size(361, 22)
+        Me.txtTitle.TabIndex = 27
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.Location = New System.Drawing.Point(12, 161)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(131, 17)
+        Me.Label8.TabIndex = 28
+        Me.Label8.Text = "Ausgewähltes Profil"
+        '
+        'cmbProfile
+        '
+        Me.cmbProfile.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cmbProfile.FormattingEnabled = True
+        Me.cmbProfile.Location = New System.Drawing.Point(15, 181)
+        Me.cmbProfile.Name = "cmbProfile"
+        Me.cmbProfile.Size = New System.Drawing.Size(361, 25)
+        Me.cmbProfile.TabIndex = 29
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(12, 392)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(64, 13)
+        Me.Label9.TabIndex = 30
+        Me.Label9.Text = "Erstellt wer"
+        '
+        'Label10
+        '
+        Me.Label10.AutoSize = True
+        Me.Label10.Location = New System.Drawing.Point(162, 392)
+        Me.Label10.Name = "Label10"
+        Me.Label10.Size = New System.Drawing.Size(74, 13)
+        Me.Label10.TabIndex = 31
+        Me.Label10.Text = "Erstellt wann"
+        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(330, 392)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(77, 13)
+        Me.Label11.TabIndex = 32
+        Me.Label11.Text = "Geändert wer"
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(477, 392)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(87, 13)
+        Me.Label12.TabIndex = 33
+        Me.Label12.Text = "Geändert wann"
+        '
+        'txtAddedWho
+        '
+        Me.txtAddedWho.Enabled = False
+        Me.txtAddedWho.Location = New System.Drawing.Point(15, 408)
+        Me.txtAddedWho.Name = "txtAddedWho"
+        Me.txtAddedWho.Size = New System.Drawing.Size(144, 22)
+        Me.txtAddedWho.TabIndex = 34
+        '
+        'txtAddedWhen
+        '
+        Me.txtAddedWhen.Enabled = False
+        Me.txtAddedWhen.Location = New System.Drawing.Point(165, 408)
+        Me.txtAddedWhen.Name = "txtAddedWhen"
+        Me.txtAddedWhen.Size = New System.Drawing.Size(144, 22)
+        Me.txtAddedWhen.TabIndex = 35
+        '
+        'txtChangedWho
+        '
+        Me.txtChangedWho.Enabled = False
+        Me.txtChangedWho.Location = New System.Drawing.Point(330, 408)
+        Me.txtChangedWho.Name = "txtChangedWho"
+        Me.txtChangedWho.Size = New System.Drawing.Size(144, 22)
+        Me.txtChangedWho.TabIndex = 36
+        '
+        'txtChangedWhen
+        '
+        Me.txtChangedWhen.Enabled = False
+        Me.txtChangedWhen.Location = New System.Drawing.Point(480, 408)
+        Me.txtChangedWhen.Name = "txtChangedWhen"
+        Me.txtChangedWhen.Size = New System.Drawing.Size(144, 22)
+        Me.txtChangedWhen.TabIndex = 37
+        '
+        'Label13
+        '
+        Me.Label13.AutoSize = True
+        Me.Label13.Location = New System.Drawing.Point(666, 228)
+        Me.Label13.Name = "Label13"
+        Me.Label13.Size = New System.Drawing.Size(45, 13)
+        Me.Label13.TabIndex = 40
+        Me.Label13.Text = "ProfilID"
+        '
+        'txtProfilID
+        '
+        Me.txtProfilID.Enabled = False
+        Me.txtProfilID.Location = New System.Drawing.Point(669, 244)
+        Me.txtProfilID.Name = "txtProfilID"
+        Me.txtProfilID.Size = New System.Drawing.Size(55, 22)
+        Me.txtProfilID.TabIndex = 41
+        '
+        'GridControlSplit
+        '
+        Me.GridControlSplit.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.GridControlSplit.Location = New System.Drawing.Point(0, 0)
+        Me.GridControlSplit.MainView = Me.GridViewSplit
+        Me.GridControlSplit.MenuManager = Me.RibbonControl1
+        Me.GridControlSplit.Name = "GridControlSplit"
+        Me.GridControlSplit.Size = New System.Drawing.Size(487, 179)
+        Me.GridControlSplit.TabIndex = 42
+        Me.GridControlSplit.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewSplit})
+        '
+        'GridViewSplit
+        '
+        Me.GridViewSplit.GridControl = Me.GridControlSplit
+        Me.GridViewSplit.Name = "GridViewSplit"
+        Me.GridViewSplit.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSplit.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSplit.OptionsBehavior.AllowFixedGroups = DevExpress.Utils.DefaultBoolean.[False]
+        Me.GridViewSplit.OptionsBehavior.Editable = False
+        Me.GridViewSplit.OptionsView.ShowGroupPanel = False
+        '
+        'XtraTabControl1
+        '
+        Me.XtraTabControl1.Location = New System.Drawing.Point(15, 436)
+        Me.XtraTabControl1.Name = "XtraTabControl1"
+        Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPageSplit
+        Me.XtraTabControl1.Size = New System.Drawing.Size(489, 204)
+        Me.XtraTabControl1.TabIndex = 43
+        Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPageSplit, Me.XtraTabPage2})
+        '
+        'XtraTabPageSplit
+        '
+        Me.XtraTabPageSplit.Controls.Add(Me.GridControlSplit)
+        Me.XtraTabPageSplit.Name = "XtraTabPageSplit"
+        Me.XtraTabPageSplit.Size = New System.Drawing.Size(487, 179)
+        Me.XtraTabPageSplit.Text = "Trennen nach Satzzeichen"
+        '
+        'XtraTabPage2
+        '
+        Me.XtraTabPage2.Name = "XtraTabPage2"
+        Me.XtraTabPage2.Size = New System.Drawing.Size(487, 179)
+        Me.XtraTabPage2.Text = "Weiteres"
+        '
+        'RibbonPageGroup4
+        '
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem6)
+        Me.RibbonPageGroup4.ItemLinks.Add(Me.BarButtonItem5)
+        Me.RibbonPageGroup4.Name = "RibbonPageGroup4"
+        Me.RibbonPageGroup4.Text = "Split-Funktionen"
+        '
+        'BarButtonItem5
+        '
+        Me.BarButtonItem5.Caption = "Löschen"
+        Me.BarButtonItem5.Id = 6
+        Me.BarButtonItem5.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem5.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem5.Name = "BarButtonItem5"
+        '
+        'BarButtonItem6
+        '
+        Me.BarButtonItem6.Caption = "Hinzufügen"
+        Me.BarButtonItem6.Id = 7
+        Me.BarButtonItem6.ImageOptions.SvgImage = CType(resources.GetObject("BarButtonItem6.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
+        Me.BarButtonItem6.Name = "BarButtonItem6"
+        '
+        'frmFolderImport
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(894, 684)
+        Me.Controls.Add(Me.XtraTabControl1)
+        Me.Controls.Add(Me.txtProfilID)
+        Me.Controls.Add(Me.Label13)
+        Me.Controls.Add(Me.txtChangedWhen)
+        Me.Controls.Add(Me.txtChangedWho)
+        Me.Controls.Add(Me.txtAddedWhen)
+        Me.Controls.Add(Me.txtAddedWho)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.Label10)
+        Me.Controls.Add(Me.Label9)
+        Me.Controls.Add(Me.cmbProfile)
+        Me.Controls.Add(Me.Label8)
+        Me.Controls.Add(Me.txtTitle)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.NumericUpDownLimit)
+        Me.Controls.Add(Me.LabelControl2)
+        Me.Controls.Add(Me.cmbAttribute)
+        Me.Controls.Add(Me.LabelControl1)
+        Me.Controls.Add(Me.GroupBox1)
+        Me.Controls.Add(Me.btnMoveTo)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.txtMoveTo)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.txtRegex)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cmbDoctype)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.txtFolderbrowser)
+        Me.Controls.Add(Me.RibbonStatusBar1)
+        Me.Controls.Add(Me.RibbonControl1)
+        Me.Name = "frmFolderImport"
+        Me.Ribbon = Me.RibbonControl1
+        Me.StatusBar = Me.RibbonStatusBar1
+        Me.Text = "frmFolderImport"
+        CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.NumSplitIndex, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.NumericUpDownLimit, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridControlSplit, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.GridViewSplit, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.XtraTabControl1.ResumeLayout(False)
+        Me.XtraTabPageSplit.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
+    Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
+    Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
+    Friend WithEvents txtFolderbrowser As TextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Button1 As Button
+    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
+    Friend WithEvents cmbDoctype As ComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem2 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents txtRegex As TextBox
+    Friend WithEvents Label3 As Label
+    Friend WithEvents btnMoveTo As Button
+    Friend WithEvents Label4 As Label
+    Friend WithEvents txtMoveTo As TextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents Label6 As Label
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents NumSplitIndex As NumericUpDown
+    Friend WithEvents txtSplitCharacter As TextBox
+    Friend WithEvents LabelControl1 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents cmbAttribute As ComboBox
+    Friend WithEvents LabelControl2 As DevExpress.XtraEditors.LabelControl
+    Friend WithEvents NumericUpDownLimit As NumericUpDown
+    Friend WithEvents BarEditItem1 As DevExpress.XtraBars.BarEditItem
+    Friend WithEvents RepositoryItemProgressBar1 As DevExpress.XtraEditors.Repository.RepositoryItemProgressBar
+    Friend WithEvents BarButtonItem3 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+    Friend WithEvents Label7 As Label
+    Friend WithEvents txtTitle As TextBox
+    Friend WithEvents Label8 As Label
+    Friend WithEvents cmbProfile As ComboBox
+    Friend WithEvents BarButtonItem4 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents Label9 As Label
+    Friend WithEvents Label10 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents Label12 As Label
+    Friend WithEvents txtAddedWho As TextBox
+    Friend WithEvents txtAddedWhen As TextBox
+    Friend WithEvents txtChangedWho As TextBox
+    Friend WithEvents txtChangedWhen As TextBox
+    Friend WithEvents Label13 As Label
+    Friend WithEvents txtProfilID As TextBox
+    Friend WithEvents GridControlSplit As DevExpress.XtraGrid.GridControl
+    Friend WithEvents GridViewSplit As DevExpress.XtraGrid.Views.Grid.GridView
+    Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl
+    Friend WithEvents XtraTabPageSplit As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage
+    Friend WithEvents BarButtonItem5 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents BarButtonItem6 As DevExpress.XtraBars.BarButtonItem
+    Friend WithEvents RibbonPageGroup4 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
+End Class

ZooFlow/Modules/frmFolderImport.resx

@@ -0,0 +1,249 @@
+<?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>
+  <assembly alias="DevExpress.Data.v21.2" name="DevExpress.Data.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
+  <data name="BarButtonItem1.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPgBAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iUmVhcHBseSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLlllbGxvd3tmaWxsOiNGRkIxMTU7fQoJ
+        LkdyZWVue2ZpbGw6IzAzOUMyMzt9Cjwvc3R5bGU+DQogIDxwb2x5Z29uIHBvaW50cz0iNCwyIDI4LDIg
+        MjgsNiAxOCwxNiAxOCwyNiAxNCwzMCAxNCwxNiA0LDYgIiBjbGFzcz0iWWVsbG93IiAvPg0KICA8cG9s
+        eWdvbiBwb2ludHM9IjI2LDI2IDI2LDE0IDI0LDE0IDI0LDI2IDIwLDI2IDI1LDMxIDMwLDI2ICIgY2xh
+        c3M9IkdyZWVuIiAvPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem2.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAPcFAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkdyZWVue2ZpbGw6IzAzOUMyMzt9Cgku
+        QmxhY2t7ZmlsbDojNzI3MjcyO30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5ZZWxsb3d7ZmlsbDojRkZC
+        MTE1O30KCS5CbHVle2ZpbGw6IzExNzdENzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQo8L3N0eWxlPg0KICA8ZyBpZD0iSXRlbVR5cGVD
+        aGVja2VkIj4NCiAgICA8Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lk
+        dGg9IjEwIiBoZWlnaHQ9IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8
+        cmVjdCB4PSIyMCIgeT0iMjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNz
+        PSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMw
+        LDAuNSwwLjUsMSwxLDFoMTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHog
+        TTE0LDMwSDRWMjAgICAgIGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0i
+        TTE0LDEwLjhWMTRINFY0aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwx
+        aDEyYzAuNSwwLDEtMC41LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwv
+        Zz4NCiAgICAgIDxnPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0iOCIgd2lkdGg9IjEwIiBoZWlnaHQ9
+        IjQiIHJ4PSIwIiByeT0iMCIgY2xhc3M9IkJsYWNrIiAvPg0KICAgICAgICA8cmVjdCB4PSIyMCIgeT0i
+        MjIiIHdpZHRoPSIxMCIgaGVpZ2h0PSI0IiByeD0iMCIgcnk9IjAiIGNsYXNzPSJCbGFjayIgLz4NCiAg
+        ICAgICAgPHBhdGggZD0iTTE1LDE4SDNjLTAuNSwwLTEsMC41LTEsMXYxMmMwLDAuNSwwLjUsMSwxLDFo
+        MTJjMC41LDAsMS0wLjUsMS0xVjE5QzE2LDE4LjUsMTUuNSwxOCwxNSwxOHogTTE0LDMwSDRWMjAgICAg
+        IGgxMFYzMHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgICAgPHBhdGggZD0iTTE0LDEwLjhWMTRINFY0
+        aDguMmwyLTJIM0MyLjUsMiwyLDIuNSwyLDN2MTJjMCwwLjUsMC41LDEsMSwxaDEyYzAuNSwwLDEtMC41
+        LDEtMVY4LjhMMTQsMTAuOHoiIGNsYXNzPSJCbGFjayIgLz4NCiAgICAgIDwvZz4NCiAgICA8L2c+DQog
+        ICAgPHBvbHlnb24gcG9pbnRzPSI2LDUgNiw4IDEwLDEyIDE4LDQgMTgsMSAxMCw5ICAiIGNsYXNzPSJH
+        cmVlbiIgLz4NCiAgPC9nPg0KPC9zdmc+Cw==
+</value>
+  </data>
+  <data name="BarButtonItem3.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAMICAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzczNzM3NDt9Cgku
+        WWVsbG93e2ZpbGw6I0ZDQjAxQjt9CgkuR3JlZW57ZmlsbDojMTI5QzQ5O30KCS5CbHVle2ZpbGw6IzM4
+        N0NCNzt9CgkuUmVke2ZpbGw6I0QwMjEyNzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh
+        Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQoJLnN0M3tk
+        aXNwbGF5Om5vbmU7ZmlsbDojNzM3Mzc0O30KPC9zdHlsZT4NCiAgPHBhdGggZD0iTTI3LDRoLTN2MTBI
+        OFY0SDVDNC40LDQsNCw0LjQsNCw1djIyYzAsMC42LDAuNCwxLDEsMWgyMmMwLjYsMCwxLTAuNCwxLTFW
+        NUMyOCw0LjQsMjcuNiw0LDI3LDR6IE0yNCwyNEg4di02ICBoMTZWMjR6IE0xMCw0djhoMTBWNEgxMHog
+        TTE0LDEwaC0yVjZoMlYxMHoiIGNsYXNzPSJCbGFjayIgLz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem4.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
+        MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
+        LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
+        YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem5.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAALMCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkRlbGV0ZUNpcmNsZWQiPg0KICAgIDxwYXRoIGQ9Ik0x
+        Niw0QzkuNCw0LDQsOS40LDQsMTZzNS40LDEyLDEyLDEyczEyLTUuNCwxMi0xMlMyMi42LDQsMTYsNHog
+        TTIzLjEsMjAuMmwtMi44LDIuOEwxNiwxOC44bC00LjIsNC4yICAgbC0yLjgtMi44bDQuMi00LjJsLTQu
+        Mi00LjJsMi44LTIuOGw0LjIsNC4ybDQuMi00LjJsMi44LDIuOEwxOC44LDE2TDIzLjEsMjAuMnoiIGNs
+        YXNzPSJSZWQiIC8+DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <data name="BarButtonItem6.ImageOptions.SvgImage" type="DevExpress.Utils.Svg.SvgImage, DevExpress.Data.v21.2" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40
+        LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl
+        dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAKcCAAAC77u/
+        PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi
+        IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv
+        MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh
+        Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg
+        MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z
+        ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5CbGFja3tmaWxsOiM3MjcyNzI7fQoJLkdyZWVue2ZpbGw6IzAz
+        OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9Cgkuc3Qwe29wYWNpdHk6MC43NTt9Cgkuc3Qxe29wYWNp
+        dHk6MC41O30KPC9zdHlsZT4NCiAgPGcgaWQ9IkFkZCI+DQogICAgPHBhdGggZD0iTTI3LDE0aC05VjVj
+        MC0wLjUtMC41LTEtMS0xaC0yYy0wLjUsMC0xLDAuNS0xLDF2OUg1Yy0wLjUsMC0xLDAuNS0xLDF2MmMw
+        LDAuNSwwLjUsMSwxLDFoOXY5ICAgYzAsMC41LDAuNSwxLDEsMWgyYzAuNSwwLDEtMC41LDEtMXYtOWg5
+        YzAuNSwwLDEtMC41LDEtMXYtMkMyOCwxNC41LDI3LjUsMTQsMjcsMTR6IiBjbGFzcz0iR3JlZW4iIC8+
+        DQogIDwvZz4NCjwvc3ZnPgs=
+</value>
+  </data>
+  <metadata name="FolderBrowserDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+</root>

ZooFlow/Modules/frmFolderImport.vb

@@ -0,0 +1,284 @@
+Imports System.IO
+Imports System.Text.RegularExpressions
+Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.ZooFlow
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Public Class frmFolderImport
+    Private Logger As Logger
+    Private Property Environment As Environment
+    Private oFileList As List(Of String)
+    Private oDoctype_DT As DataTable
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
+            txtFolderbrowser.Text = FolderBrowserDialog1.SelectedPath
+        End If
+    End Sub
+
+    Private Sub frmFolderImport_Load(sender As Object, e As EventArgs) Handles Me.Load
+        Logger = My.LogConfig.GetLogger()
+        Environment = My.Application.GetEnvironment()
+        Try
+            Dim oSQL = "SELECT DISTINCT [DOCTYPE_ID] ,[Doctype] FROM [IDB].[dbo].[VWIDB_DOCTYPE_BUSINESS_ENTITY] where LANG_CODE = 'de-DE'"
+            oDoctype_DT = My.DatabaseIDB.GetDatatable(oSQL)
+            If Not IsNothing(oDoctype_DT) Then
+                cmbDoctype.DataSource = oDoctype_DT
+                cmbDoctype.ValueMember = oDoctype_DT.Columns(0).ColumnName
+                cmbDoctype.DisplayMember = oDoctype_DT.Columns(1).ColumnName
+            End If
+            oSQL = "select AttributeID,Attribute From VWIDB_ATTRIBUTE_LANG where LANG_CODE = 'de-DE'"
+            Dim oAttribute_DT As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
+            If Not IsNothing(oAttribute_DT) Then
+                cmbAttribute.DataSource = oAttribute_DT
+                cmbAttribute.ValueMember = oAttribute_DT.Columns(0).ColumnName
+                cmbAttribute.DisplayMember = oAttribute_DT.Columns(1).ColumnName
+            End If
+            Refresh_Profiles()
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+
+    End Sub
+    Sub Refresh_Profiles()
+        Dim oSQL = "select GUID,TITLE From TBFOLDERIMPORT_PROFILE"
+        Dim oDTProfiles As DataTable = My.DatabaseECM.GetDatatable(oSQL)
+        If Not IsNothing(oDTProfiles) Then
+            cmbProfile.DataSource = oDTProfiles
+            cmbProfile.ValueMember = oDTProfiles.Columns(0).ColumnName
+            cmbProfile.DisplayMember = oDTProfiles.Columns(1).ColumnName
+        End If
+    End Sub
+
+    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
+
+        Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
+
+        Try
+            Dim oMsg = $"Es sollen [{oTempFileList.Count}] Dateien verarbeitet werden!"
+            MsgBox(oMsg, MsgBoxStyle.Information)
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+
+    End Sub
+
+    Private Function FnGetFileList(pFolder As String, pRegex As String) As List(Of String)
+        Try
+            Dim oTempFileList As New List(Of String)
+            Dim di As New DirectoryInfo(pFolder)
+            ' Get a reference to each file in that directory.
+            Dim fiArr As FileInfo() = di.GetFiles()
+            ' Display the names of the files.
+            Dim fri As FileInfo
+            Dim oMatchCount As Integer = 0
+            Dim oMatch As Boolean = False
+            For Each fri In fiArr
+                oMatch = True
+                If txtRegex.Text <> String.Empty Then
+                    Dim regex As Regex = New Regex(pRegex)
+                    ' Step 2: call Match on Regex.
+                    Dim match As Match = regex.Match(fri.Name)
+                    ' Step 3: test the Success bool.
+                    ' ... If we have Success, write the Value.
+                    If match.Success Then
+
+                    Else
+                        oMatch = False
+                    End If
+                End If
+                If oMatch = True Then
+                    oMatchCount += 1
+                    oTempFileList.Add(fri.FullName)
+                    If NumericUpDownLimit.Value <> 0 Then
+                        If NumericUpDownLimit.Value = oMatchCount Then
+                            Logger.Info($"There is a limit for working files [{NumericUpDownLimit.Value}]! Exiting...")
+                            Exit For
+                        End If
+                    End If
+
+
+                End If
+
+            Next fri
+            Return oTempFileList
+        Catch ex As Exception
+            MsgBox(ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Function
+
+    Private Sub btnMoveTo_Click(sender As Object, e As EventArgs) Handles btnMoveTo.Click
+        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
+            txtMoveTo.Text = FolderBrowserDialog1.SelectedPath
+        End If
+    End Sub
+
+    Private Async Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
+
+        Dim oTempFileList As List(Of String) = FnGetFileList(txtFolderbrowser.Text, txtRegex.Text)
+        If oTempFileList.Count > 0 Then
+            RepositoryItemProgressBar1.Maximum = oTempFileList.Count
+            Cursor = Cursors.WaitCursor
+            If cmbDoctype.SelectedIndex <> -1 And cmbAttribute.SelectedIndex <> -1 Then
+                BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
+                Dim oCount As Integer = 0
+                Logger.Info($"WORK_TEMPFILELIST()...[{oTempFileList.Count}] files shall be worked!")
+                Dim oCountResult As Integer = 0
+                For Each oFile As String In oTempFileList
+                    Dim oResult As Boolean = False
+                    Try
+                        Logger.Debug($"=== ForEachFile {oCount} =======================================")
+                        Logger.Debug($"...Working on file [{oFile}]")
+                        Dim oFilenameOnly = Path.GetFileName(oFile)
+
+                        Dim oSplit() As String = oFilenameOnly.Split(txtSplitCharacter.Text)
+                        Dim oSplitString As String = oSplit(NumSplitIndex.Value)
+                        Logger.Debug($"...oSplitString [{oSplitString}]")
+                        If Await StreamFile(oFile, cmbDoctype.SelectedValue, cmbAttribute.Text, oSplitString) = True Then
+                            Logger.Info($"...File successfully worked!")
+                            If txtMoveTo.Text <> String.Empty Then
+                                Try
+                                    oResult = MoveFile(oFile, txtMoveTo.Text)
+
+                                Catch ex As Exception
+
+                                End Try
+                            Else
+                                oResult = False
+                            End If
+                        Else
+                            oResult = False
+                        End If
+
+                        If oResult = True Then
+                            oCountResult += 1
+                        End If
+
+                    Catch ex As Exception
+                        Logger.Warn($"Error working on fileimport for file [{oFile}]")
+                        Logger.Warn($"Error: [{ex.Message}]")
+                        Logger.Error(ex)
+                    End Try
+                    oCount += 1
+                    BarEditItem1.EditValue = oCount
+                Next
+                Dim oMSG = $"FileImport finished for [{oCountResult}] of [{oTempFileList.Count }]  files!"
+                Logger.Info(oMSG)
+                Cursor = Cursors.Default
+                MsgBox(oMSG, MsgBoxStyle.Information)
+                BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
+            End If
+        End If
+    End Sub
+
+    Private Async Function StreamFile(oFilename As String, pDoctypeID As Integer, pDescriptiveAttribute As String, pDescrValue As String) As Threading.Tasks.Task(Of Boolean)
+        Try
+            Dim oResponse As ImportFileResponse = Await My.Application.Service.Client.ImportFileAsync(
+            oFilename,
+            New List(Of UserAttributeValue) From {
+                New UserAttributeValue With {
+                    .Name = pDescriptiveAttribute,
+                    .Values = New List(Of String) From {pDescrValue}.ToArray
+                }
+            },
+            "WORK",
+            "DOC",
+           pDoctypeID
+        )
+            If oResponse.OK Then
+                Logger.Info($"File [{oFilename}] successfully imported!")
+                Return True
+            Else
+                Logger.Warn($"## ATTENTION: File [{oFilename}] was not imported! ##")
+                Return False
+            End If
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+    Private Function MoveFile(pFile As String, pPathMove2 As String) As Boolean
+        Try
+            Dim oFilename = Path.GetFileName(pFile)
+            Dim oCombined = String.Concat(pPathMove2, "\", oFilename)
+            File.Move(pFile, oCombined)
+            Logger.Info($"...and moved to [{oCombined}]")
+            Return True
+        Catch ex As Exception
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
+        Dim oSaveUpdate = $"EXEC PRIDBFOLDERIMPORT_PROFILE '{txtTitle.Text}','{txtFolderbrowser.Text}','{txtRegex.Text}',{NumericUpDownLimit.Value}, {cmbDoctype.SelectedValue},'{txtMoveTo.Text}','', '{My.Application.User.UserName}','{txtProfilID.Text}'"
+        Dim oProfile = txtTitle.Text
+        Dim oDT As DataTable
+        oDT = My.DatabaseECM.GetDatatable(oSaveUpdate)
+
+        If Not IsNothing(oDT) Then
+            Refresh_Profiles()
+            cmbDoctype.SelectedIndex = cmbProfile.FindStringExact(oProfile)
+        End If
+
+    End Sub
+
+    Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
+
+        txtFolderbrowser.Text = ""
+        txtTitle.Text = ""
+        txtRegex.Text = ""
+        NumericUpDownLimit.Value = 0
+        txtMoveTo.Text = ""
+        cmbDoctype.SelectedIndex = -1
+    End Sub
+
+    Private Sub cmbProfile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbProfile.SelectedIndexChanged
+        If cmbProfile.SelectedIndex <> -1 Then
+            If IsNumeric(cmbProfile.SelectedValue) Then
+                Dim oSQL = $"SELECT * FROM TBFOLDERIMPORT_PROFILE WHERE GUID = {cmbProfile.SelectedValue}"
+                Dim oDT As DataTable
+                oDT = My.DatabaseECM.GetDatatable(oSQL)
+
+                If Not IsNothing(oDT) Then
+                    txtProfilID.Text = oDT.Rows(0).Item("GUID")
+                    txtFolderbrowser.Text = oDT.Rows(0).Item("IMPORT_PATH")
+                    txtTitle.Text = oDT.Rows(0).Item("TITLE")
+                    txtRegex.Text = oDT.Rows(0).Item("REGEX_FILENAME")
+                    NumericUpDownLimit.Value = oDT.Rows(0).Item("LIMIT_FILECOUNT")
+                    txtMoveTo.Text = oDT.Rows(0).Item("ARCHIVE_PATH")
+                    Dim oDoctype As String
+                    For Each oRow As DataRow In oDoctype_DT.Rows
+                        If oRow.Item(0) = oDT.Rows(0).Item("DOCTYPE_ID") Then
+                            oDoctype = oRow.Item(1)
+                            Exit For
+                        End If
+                    Next
+
+                    Dim o1 = cmbDoctype.FindStringExact(oDoctype)
+
+                    cmbDoctype.SelectedIndex = o1
+                    txtAddedWho.Text = oDT.Rows(0).Item("ADDED_WHO")
+                    txtAddedWhen.Text = oDT.Rows(0).Item("ADDED_WHEN")
+                    txtChangedWho.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHO")), "", oDT.Rows(0).Item("CHANGED_WHO"))
+                    txtChangedWhen.Text = IIf(IsDBNull(oDT.Rows(0).Item("CHANGED_WHEN")), "", oDT.Rows(0).Item("CHANGED_WHEN"))
+                    Dim oSQLSplit = $"SELECT GUID as ID,PRAEFIX as Praefix,SPLIT_CHARACTER Character, SPLIT_POS as SplitPos,SUFFIX as Suffix FROM TBFOLDERIMPORT_STEP_ATTRIBUTE_SPLIT WHERE PROFILE_ID = {oDT.Rows(0).Item("GUID")}"
+                    Dim oDT_Split As DataTable
+                    oDT_Split = My.DatabaseECM.GetDatatable(oSQL)
+                    GridControlSplit.DataSource = oDT_Split
+                Else
+                    txtProfilID.Text = ""
+                End If
+            End If
+
+
+        End If
+    End Sub
+
+    Private Sub GridControlSplit_MouseClick(sender As Object, e As MouseEventArgs) Handles GridControlSplit.MouseClick
+        RibbonPageGroup4.Visible = True
+        RibbonPageGroup3.Enabled = False
+    End Sub
+
+    Private Sub GridControlSplit_Leave(sender As Object, e As EventArgs) Handles GridControlSplit.Leave
+        RibbonPageGroup4.Visible = False
+        RibbonPageGroup3.Enabled = True
+    End Sub
+End Class

ZooFlow/My Project/licenses.licx

@@ -1,12 +1,13 @@
-DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.Repository.RepositoryItemProgressBar, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraBars.Docking.DockManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
-DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraLayout.LayoutControl, DevExpress.XtraLayout.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraTreeList.TreeList, DevExpress.XtraTreeList.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
 DevExpress.XtraEditors.ProgressBarControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.CheckEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.DateEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
+DevExpress.XtraEditors.PictureEdit, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

ZooFlow/ZooFlow.vbproj

@@ -369,6 +369,12 @@
     <Compile Include="frmTest.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Modules\frmFolderImport.Designer.vb">
+      <DependentUpon>frmFolderImport.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Modules\frmFolderImport.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="Modules\Globix\ClassExclusions.vb" />
     <Compile Include="Modules\Globix\ClassValidator.vb" />
     <Compile Include="Modules\Globix\frmGlobixNameconvention.Designer.vb">
@@ -607,6 +613,9 @@
     <EmbeddedResource Include="frmTest.resx">
       <DependentUpon>frmTest.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Modules\frmFolderImport.resx">
+      <DependentUpon>frmFolderImport.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Modules\Globix\frmGlobixBasicConfig.resx">
       <DependentUpon>frmGlobixBasicConfig.vb</DependentUpon>
     </EmbeddedResource>

ZooFlow/frmConfigBasic.vb

@@ -62,8 +62,8 @@ Public Class frmConfigBasic
 
     Private Sub SaveCatalogSetting(pKey As Integer, pValue As String)
         Try
-            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING  = '{pValue}'
+            Dim oUpd = $"UPDATE TBIDB_CATALOG_USER SET CHANGED_WHO = '{My.Application.User.UserName}', CAT_STRING = '{pValue}'
-            WHERE GUID  = {pKey}"
+            WHERE GUID = {pKey}"
 
             If My.DatabaseIDB.ExecuteNonQuery(oUpd) = True Then
                 bsiInfo.Caption = "Position Quicksearch1 saved!"

ZooFlow/frmFlowForm.Designer.vb

@@ -34,7 +34,7 @@ Partial Class frmFlowForm
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.VerwaltungToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
-        Me.SucheEntwurfToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+        Me.mnitmFolderImport = New System.Windows.Forms.ToolStripMenuItem()
         Me.TestToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
         Me.ZooFlowBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -106,62 +106,62 @@ Partial Class frmFlowForm
         '
         'ContextMenuSystray
         '
-        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.SucheEntwurfToolStripMenuItem, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem})
+        Me.ContextMenuSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.EinblendenToolStripMenuItem, Me.ToolStripSeparator1, Me.VerwaltungToolStripMenuItem, Me.ToolStripSeparator3, Me.mnitmFolderImport, Me.TestToolStripMenuItem, Me.ToolStripSeparator2, Me.ZooFlowBeendenToolStripMenuItem, Me.TreeViewToolStripMenuItem})
         Me.ContextMenuSystray.Name = "ContextMenuSystray"
-        Me.ContextMenuSystray.Size = New System.Drawing.Size(170, 154)
+        Me.ContextMenuSystray.Size = New System.Drawing.Size(181, 176)
         '
         'EinblendenToolStripMenuItem
         '
         Me.EinblendenToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.action_add_16xMD
         Me.EinblendenToolStripMenuItem.Name = "EinblendenToolStripMenuItem"
-        Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.EinblendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.EinblendenToolStripMenuItem.Text = "Einblenden"
         Me.EinblendenToolStripMenuItem.Visible = False
         '
         'ToolStripSeparator1
         '
         Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
-        Me.ToolStripSeparator1.Size = New System.Drawing.Size(166, 6)
+        Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
         '
         'VerwaltungToolStripMenuItem
         '
         Me.VerwaltungToolStripMenuItem.Image = Global.DigitalData.GUIs.ZooFlow.My.Resources.Resources.gear_32xLG
         Me.VerwaltungToolStripMenuItem.Name = "VerwaltungToolStripMenuItem"
-        Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.VerwaltungToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.VerwaltungToolStripMenuItem.Text = "Verwaltung"
         '
         'ToolStripSeparator3
         '
         Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
-        Me.ToolStripSeparator3.Size = New System.Drawing.Size(166, 6)
+        Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
         '
-        'SucheEntwurfToolStripMenuItem
+        'mnitmFolderImport
         '
-        Me.SucheEntwurfToolStripMenuItem.Name = "SucheEntwurfToolStripMenuItem"
+        Me.mnitmFolderImport.Name = "mnitmFolderImport"
-        Me.SucheEntwurfToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.mnitmFolderImport.Size = New System.Drawing.Size(180, 22)
-        Me.SucheEntwurfToolStripMenuItem.Text = "Suche Entwurf"
+        Me.mnitmFolderImport.Text = "Ordnerimport"
         '
         'TestToolStripMenuItem
         '
         Me.TestToolStripMenuItem.Name = "TestToolStripMenuItem"
-        Me.TestToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.TestToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.TestToolStripMenuItem.Text = "Test"
         '
         'ToolStripSeparator2
         '
         Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
-        Me.ToolStripSeparator2.Size = New System.Drawing.Size(166, 6)
+        Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 6)
         '
         'ZooFlowBeendenToolStripMenuItem
         '
         Me.ZooFlowBeendenToolStripMenuItem.Name = "ZooFlowBeendenToolStripMenuItem"
-        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.ZooFlowBeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.ZooFlowBeendenToolStripMenuItem.Text = "ZooFlow beenden"
         '
         'TreeViewToolStripMenuItem
         '
         Me.TreeViewToolStripMenuItem.Name = "TreeViewToolStripMenuItem"
-        Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(169, 22)
+        Me.TreeViewToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
         Me.TreeViewToolStripMenuItem.Text = "treeView"
         '
         'PictureBoxSearch
@@ -613,7 +613,7 @@ Partial Class frmFlowForm
     Friend WithEvents Panel3 As Panel
     Friend WithEvents bbtnitmAusblenden As DevExpress.XtraBars.BarButtonItem
     Friend WithEvents EinblendenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents SucheEntwurfToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents mnitmFolderImport As ToolStripMenuItem
     Friend WithEvents GridControlRecentFiles As DevExpress.XtraGrid.GridControl
     Friend WithEvents RecentFilesView As DevExpress.XtraGrid.Views.BandedGrid.AdvBandedGridView
     Friend WithEvents colSecondary As DevExpress.XtraGrid.Views.BandedGrid.BandedGridColumn

ZooFlow/frmFlowForm.vb

@@ -1232,9 +1232,8 @@ Public Class frmFlowForm
         Me.Visible = True
     End Sub
 
-    Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheEntwurfToolStripMenuItem.Click
+    Private Sub SucheEntwurfToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles mnitmFolderImport.Click
-        Dim oForm = New frmSearchFlow()
+        frmFolderImport.ShowDialog()
-        oForm.Show()
     End Sub
 
     Private Sub AdvBandedGridView1_DoubleClick(sender As Object, e As EventArgs) Handles RecentFilesView.DoubleClick