Footer und Buttons verankert - frmNIVerknuepfungen

Instanzname in Titelleiste der Form und bei Tray-Icon eingeblendet - frmStart.Designer
Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite
2025-12-04 09:47:25 +01:00 · 2025-12-04 09:29:30 +01:00 · 2025-12-01 10:30:53 +01:00 · 2025-11-27 16:59:27 +01:00 · 2025-11-27 09:24:08 +01:00 · 2025-11-13 14:02:23 +01:00
23 changed files with 334 additions and 187 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -164,3 +164,4 @@ $RECYCLE.BIN/
 /NIService/.vs/NIService.csproj.dtbcache.json
 /.vs/ToolCollection/v17/DocumentLayout.json
 /.vs/ToolCollection/v17/DocumentLayout.backup.json
+/.vs
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-shm
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-shm
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-wal
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/CodeChunks.db-wal
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-shm
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-shm
--- a/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-wal
+++ b/.vs/ToolCollection/CopilotIndices/17.14.1091.29919/SemanticSymbols.db-wal
--- a/Project/Settings.Designer.vb
+++ b/Project/Settings.Designer.vb
@@ -585,7 +585,7 @@ Namespace My
        
        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23")>  _
        Public ReadOnly Property NI_WORKING_HOURS() As String
            Get
                Return CType(Me("NI_WORKING_HOURS"),String)
@@ -670,8 +670,8 @@ Namespace My
        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
-         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Secu"& _ 
-            "rity Info=True;User ID=sa;Password=dd")>  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security "& _ 
+            "Info=True;User ID=sa;Password=dd;Encrypt=False")>  _
        Public ReadOnly Property DDECMConString() As String
            Get
                Return CType(Me("DDECMConString"),String)
@@ -769,6 +769,18 @@ Namespace My
                Me("vNIRunning") = value
            End Set
        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property vNIsingleProfileRunning() As Boolean
+            Get
+                Return CType(Me("vNIsingleProfileRunning"),Boolean)
+            End Get
+            Set
+                Me("vNIsingleProfileRunning") = value
+            End Set
+        End Property
    End Class
 End Namespace

--- a/Project/Settings.settings
+++ b/Project/Settings.settings
@@ -132,7 +132,7 @@
      <Value Profile="(Default)">0</Value>
    </Setting>
    <Setting Name="NI_WORKING_HOURS" Type="System.String" Scope="Application">
-      <Value Profile="(Default)">01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
+      <Value Profile="(Default)">01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</Value>
    </Setting>
    <Setting Name="FB_DATASOURCE" Type="System.String" Scope="Application">
      <Value Profile="(Default)" />
@@ -161,10 +161,10 @@
    <Setting Name="DDECMConString" Type="(Connection string)" Scope="Application">
      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
 &lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
-  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
+  &lt;ConnectionString&gt;Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False&lt;/ConnectionString&gt;
  &lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
-      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
+      <Value Profile="(Default)">Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False</Value>
    </Setting>
    <Setting Name="WM_PERS_LOGIN" Type="System.String" Scope="Application">
      <Value Profile="(Default)">@Domain#@User#@PW</Value>
@@ -190,5 +190,8 @@
    <Setting Name="vNIRunning" Type="System.Boolean" Scope="User">
      <Value Profile="(Default)">False</Value>
    </Setting>
+    <Setting Name="vNIsingleProfileRunning" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
  </Settings>
 </SettingsFile>
--- a/ToolCollection/app.config
+++ b/ToolCollection/app.config
@@ -11,7 +11,7 @@
    <section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
  </configSections>
  <connectionStrings>
-    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
+    <add name="ToolCollection.My.MySettings.DDECMConString" connectionString="Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd;Encrypt=False"
      providerName="System.Data.SqlClient" />
  </connectionStrings>
  <system.diagnostics>
@@ -168,6 +168,9 @@
      <setting name="vNIRunning" serializeAs="String">
        <value>False</value>
      </setting>
+      <setting name="vNIsingleProfileRunning" serializeAs="String">
+        <value>False</value>
+      </setting>
    </ToolCollection.My.MySettings>
  </userSettings>
  <applicationSettings>
@@ -194,7 +197,7 @@
        <value>0</value>
      </setting>
      <setting name="NI_WORKING_HOURS" serializeAs="String">
-        <value>01;02;03;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</value>
+        <value>01;02;03;08;09;10;11;12;13;14;15;16;17;18;19;20;21;22;23</value>
      </setting>
      <setting name="FB_DATASOURCE" serializeAs="String">
        <value />
--- a/ToolCollection/frmDIHauptseite.Designer.vb
+++ b/ToolCollection/frmDIHauptseite.Designer.vb
@@ -101,7 +101,7 @@ Partial Class frmDIHauptseite
        Me.tcMain.Location = New System.Drawing.Point(0, 0)
        Me.tcMain.Name = "tcMain"
        Me.tcMain.SelectedIndex = 0
-        Me.tcMain.Size = New System.Drawing.Size(722, 513)
+        Me.tcMain.Size = New System.Drawing.Size(784, 519)
        Me.tcMain.TabIndex = 51
        '
        'tpMain
@@ -124,7 +124,7 @@ Partial Class frmDIHauptseite
        Me.tpMain.Location = New System.Drawing.Point(4, 22)
        Me.tpMain.Name = "tpMain"
        Me.tpMain.Padding = New System.Windows.Forms.Padding(3)
-        Me.tpMain.Size = New System.Drawing.Size(714, 487)
+        Me.tpMain.Size = New System.Drawing.Size(776, 493)
        Me.tpMain.TabIndex = 0
        Me.tpMain.Text = "Hauptseite"
        Me.tpMain.UseVisualStyleBackColor = True
@@ -154,7 +154,7 @@ Partial Class frmDIHauptseite
        Me.btnAbbrechen.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnAbbrechen.Image = Global.ToolCollection.My.Resources.Resources.cross
        Me.btnAbbrechen.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.btnAbbrechen.Location = New System.Drawing.Point(553, 448)
+        Me.btnAbbrechen.Location = New System.Drawing.Point(615, 454)
        Me.btnAbbrechen.Name = "btnAbbrechen"
        Me.btnAbbrechen.Size = New System.Drawing.Size(154, 30)
        Me.btnAbbrechen.TabIndex = 32
@@ -170,7 +170,7 @@ Partial Class frmDIHauptseite
        Me.cmbProfilauswahl.FormattingEnabled = True
        Me.cmbProfilauswahl.Location = New System.Drawing.Point(11, 62)
        Me.cmbProfilauswahl.Name = "cmbProfilauswahl"
-        Me.cmbProfilauswahl.Size = New System.Drawing.Size(296, 21)
+        Me.cmbProfilauswahl.Size = New System.Drawing.Size(339, 21)
        Me.cmbProfilauswahl.Sorted = True
        Me.cmbProfilauswahl.TabIndex = 24
        '
@@ -259,6 +259,7 @@ Partial Class frmDIHauptseite
        '
        Me.numIntervallDurchlauf.DataBindings.Add(New System.Windows.Forms.Binding("Value", Global.ToolCollection.My.MySettings.Default, "DIDurchlauf_Intervall", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
        Me.numIntervallDurchlauf.Location = New System.Drawing.Point(55, 120)
+        Me.numIntervallDurchlauf.Minimum = New Decimal(New Integer() {1, 0, 0, 0})
        Me.numIntervallDurchlauf.Name = "numIntervallDurchlauf"
        Me.numIntervallDurchlauf.Size = New System.Drawing.Size(46, 22)
        Me.numIntervallDurchlauf.TabIndex = 43
@@ -291,7 +292,7 @@ Partial Class frmDIHauptseite
        '
        Me.btnZielordner.Enabled = False
        Me.btnZielordner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnZielordner.Location = New System.Drawing.Point(278, 149)
+        Me.btnZielordner.Location = New System.Drawing.Point(321, 149)
        Me.btnZielordner.Name = "btnZielordner"
        Me.btnZielordner.Size = New System.Drawing.Size(29, 23)
        Me.btnZielordner.TabIndex = 40
@@ -304,16 +305,16 @@ Partial Class frmDIHauptseite
        Me.txtZielordner.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtZielordner.Location = New System.Drawing.Point(11, 151)
        Me.txtZielordner.Name = "txtZielordner"
-        Me.txtZielordner.Size = New System.Drawing.Size(261, 21)
+        Me.txtZielordner.Size = New System.Drawing.Size(304, 21)
        Me.txtZielordner.TabIndex = 39
        '
        'progressImport
        '
        Me.progressImport.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.progressImport.Location = New System.Drawing.Point(11, 415)
+        Me.progressImport.Location = New System.Drawing.Point(11, 421)
        Me.progressImport.Name = "progressImport"
-        Me.progressImport.Size = New System.Drawing.Size(696, 27)
+        Me.progressImport.Size = New System.Drawing.Size(758, 27)
        Me.progressImport.TabIndex = 29
        Me.progressImport.Visible = False
        '
@@ -334,7 +335,7 @@ Partial Class frmDIHauptseite
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.lblLog.AutoSize = True
        Me.lblLog.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblLog.Location = New System.Drawing.Point(339, 46)
+        Me.lblLog.Location = New System.Drawing.Point(371, 46)
        Me.lblLog.Name = "lblLog"
        Me.lblLog.Size = New System.Drawing.Size(103, 13)
        Me.lblLog.TabIndex = 31
@@ -344,7 +345,7 @@ Partial Class frmDIHauptseite
        '
        Me.btnQuellordner.Enabled = False
        Me.btnQuellordner.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.btnQuellordner.Location = New System.Drawing.Point(278, 109)
+        Me.btnQuellordner.Location = New System.Drawing.Point(321, 109)
        Me.btnQuellordner.Name = "btnQuellordner"
        Me.btnQuellordner.Size = New System.Drawing.Size(29, 23)
        Me.btnQuellordner.TabIndex = 37
@@ -355,7 +356,7 @@ Partial Class frmDIHauptseite
        '
        Me.lblProgress.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
        Me.lblProgress.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBTC_DI_REGEX_MATCHBindingSource, "GUID", True))
-        Me.lblProgress.Location = New System.Drawing.Point(11, 448)
+        Me.lblProgress.Location = New System.Drawing.Point(11, 454)
        Me.lblProgress.Name = "lblProgress"
        Me.lblProgress.Size = New System.Drawing.Size(536, 33)
        Me.lblProgress.TabIndex = 33
@@ -378,7 +379,7 @@ Partial Class frmDIHauptseite
        Me.txtQuellordner.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtQuellordner.Location = New System.Drawing.Point(11, 109)
        Me.txtQuellordner.Name = "txtQuellordner"
-        Me.txtQuellordner.Size = New System.Drawing.Size(261, 21)
+        Me.txtQuellordner.Size = New System.Drawing.Size(304, 21)
        Me.txtQuellordner.TabIndex = 36
        '
        'tvLog
@@ -389,10 +390,10 @@ Partial Class frmDIHauptseite
        Me.tvLog.ContextMenuStrip = Me.contextLog
        Me.tvLog.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.tvLog.HideSelection = False
-        Me.tvLog.Location = New System.Drawing.Point(342, 62)
+        Me.tvLog.Location = New System.Drawing.Point(374, 62)
        Me.tvLog.Name = "tvLog"
        Me.tvLog.ShowNodeToolTips = True
-        Me.tvLog.Size = New System.Drawing.Size(365, 347)
+        Me.tvLog.Size = New System.Drawing.Size(395, 347)
        Me.tvLog.TabIndex = 34
        '
        'Label5
@@ -436,7 +437,7 @@ Partial Class frmDIHauptseite
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(722, 513)
+        Me.ClientSize = New System.Drawing.Size(784, 519)
        Me.Controls.Add(Me.tcMain)
        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmDIHauptseite_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
--- a/ToolCollection/frmDIHauptseite.vb
+++ b/ToolCollection/frmDIHauptseite.vb
@@ -60,6 +60,8 @@ Public Class frmDIHauptseite
    Private CriticalErrorInBackgroundWorker As Boolean = False
    Private manProfile As String

+    Private FehlerProfileListe As New List(Of String)
+    Private FehlerMsgBoxVisible As Boolean = False

    Private Alles_OK As Boolean = True

@@ -268,7 +270,7 @@ Public Class frmDIHauptseite
 #End Region

 #Region "*** DoWork: während der BackgroundWorker aktiv ist ***"
-    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) 'Handles threadDateiimport.DoWork
+    Private Sub threadDateiimport_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
        Dim _TimeStart As Date
        Dim _TimeEnd As Date
        Try
@@ -283,9 +285,11 @@ Public Class frmDIHauptseite
            _TimeStart = Now
            ClassLoggerDI.Add(" Intervall: " & Me.numIntervallDurchlauf.Value, False)
            ClassLoggerDI.Add("======================================================================", False)
+
+            ' Liste für fehlerhafte Profile zurücksetzen
+            FehlerProfileListe.Clear()
+
            If _windream.Init Then
-
-
                If Manuell = True Then
                    ClassLoggerDI.Add(">> Manueller Durchlauf", False)
                    ClassLoggerDI.Add("Profilname: " & manProfile, False)
@@ -298,42 +302,51 @@ Public Class frmDIHauptseite
                    '1. ###### Zählen der Files
                    Gesamtfiles = 0
                    Dim files_Durchlauf As ReadOnlyCollection(Of String)
-                    For Each item As ClassDIProfil In ClassDIProfile.Profile

+                    For Each item As ClassDIProfil In ClassDIProfile.Profile
                        Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)

                        'Nur die files der Aktiven Profile zählen
                        If CBool(selectedProfile.Aktiv) = True Then
-                            If Me.selectedProfile.Subdirectories = True Then
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-                            Else
-                                files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            End If
-                            'files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-                            Gesamtfiles += files_Durchlauf.Count
+                            Try
+                                If Me.selectedProfile.Subdirectories = True Then
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+                                Else
+                                    files_Durchlauf = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+                                End If
+                                Gesamtfiles += files_Durchlauf.Count
+                            Catch ex As Exception
+                                ' Profil zur Fehlerliste hinzufügen
+                                FehlerProfileListe.Add(item.OriginalProfilname)
+                                ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{item.OriginalProfilname}': {ex.Message}", True)
+                            End Try
                        End If
-
-                        'MsgBox(files_Durchlauf.Count, MsgBoxStyle.Information, item.OriginalProfilname)
                    Next
+
                    ClassLoggerDI.Add("Gesamtanzahl der zu importierenden Dateien: " & Gesamtfiles, False)
+
                    If Gesamtfiles > 0 Then
                        '2. Jetzt das Durchlaufen jedes Profiles
                        For Each item As ClassDIProfil In ClassDIProfile.Profile
                            Me.selectedProfile = ClassDIProfile.getProfilByName(item.OriginalProfilname)
                            ClassLoggerDI.Add("Profilname: " & selectedProfile.Profilname, False)
+
                            ' Überprüfen ob Profil aktiv oder inaktiv
                            If CBool(selectedProfile.Aktiv) = False Then
                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " ist inaktiv geschaltet", False)
                                ClassLoggerDI.Add("", False)
+                            ElseIf FehlerProfileListe.Contains(item.OriginalProfilname) Then
+                                ' Profil überspringen, wenn es bereits als fehlerhaft markiert wurde
+                                ClassLoggerDI.Add(">> Profil: " & selectedProfile.Profilname & " wird übersprungen (fehlerhafter Pfad)", False)
+                                ClassLoggerDI.Add("", False)
                            Else
                                ' den Durchlaufszeitpunkt speichern
                                selectedProfile.LastRun = Now
                                selectedProfile.Save(False)
-                                'Und nun das PRofil durchlaufen
+                                'Und nun das Profil durchlaufen
                                ClassLoggerDI.Add("- Start des Profildurchlaufes ", False)
                                Profil_Durchlauf()
                            End If
-
                        Next
                    End If
                End If
@@ -342,10 +355,9 @@ Public Class frmDIHauptseite
            End If
            '###
        Catch ex As Exception
-            '    'MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei threadDateiimport_DoWork:")
            ClassLoggerDI.Add(" ## Fehler bei thread_DI_DoWork: " & ex.Message, False)
-            '    Resume Next
        End Try
+
        _TimeEnd = Now
        Dim seconds As Integer = (_TimeEnd - _TimeStart).TotalSeconds

@@ -358,8 +370,6 @@ Public Class frmDIHauptseite
        Else
            ClassLoggerDI.Add(" Dauer: " & (seconds / 60).ToString & " Minuten", False)
        End If
-
-
    End Sub
    Public Function func_check_file_use(ByVal filename) As Boolean
        filename = filename.Replace(My.Settings.vWLaufwerk, "\\windream\objects")
@@ -426,11 +436,22 @@ Public Class frmDIHauptseite
        Dim oFileAusschlussList As New ArrayList
        'Variable für das "Letzte Subdirectory"
        Dim oLastFolderinFiles As String = ""
-        If Me.selectedProfile.Subdirectories = True Then
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
-        Else
-            Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
-        End If
+
+        Try
+            If Me.selectedProfile.Subdirectories = True Then
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
+            Else
+                Me.ImportFileList = My.Computer.FileSystem.GetFiles(Me.selectedProfile.OriginalQuellordner, FileIO.SearchOption.SearchTopLevelOnly, "*.*")
+            End If
+        Catch ex As Exception
+            ' Profil zur Fehlerliste hinzufügen, falls noch nicht vorhanden
+            If Not FehlerProfileListe.Contains(Me.selectedProfile.OriginalProfilname) Then
+                FehlerProfileListe.Add(Me.selectedProfile.OriginalProfilname)
+            End If
+            ClassLoggerDI.Add($"## FEHLER beim Zugriff auf Quellordner für Profil '{Me.selectedProfile.OriginalProfilname}': {ex.Message}", True)
+            Exit Sub
+        End Try
+
        Dim oError As Boolean = False
        Dim DT_TBTC_DI_REGEX_MATCH As DataTable
        Try
@@ -872,9 +893,7 @@ Public Class frmDIHauptseite
 #End Region

 #Region "*** BackgroundWorker wurde beendet ***"
-    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
-        ' This event fires when the DoWork event completes
-
+    Private Sub threadDateiimport_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs)
        Try
            Dim result As String = ""

@@ -884,19 +903,40 @@ Public Class frmDIHauptseite
                MsgBox("Beim Dateiimport ist ein Fehler aufgetreten. Der Vorgang wurde abgebrochen." & vbNewLine & vbNewLine & "Dateiimport: Fehlernachricht:" & vbNewLine & e.Error.Message, MsgBoxStyle.Exclamation, "Vorgang auf Grund eines Fehlers abgebrochen")
            Else
                Me.progressImport.Value = 100
-                'MsgBox("Der Dateiimport für das Profil '" & Me.cmbProfilauswahl.SelectedItem & "' wurde erfolgreich durchgeführt.", MsgBoxStyle.Information, "Dateiimport: Vorgang erfolgreich beendet")
-            End If

-            ''MsgBox(filenameQuelle.Substring(0, filenameQuelle.LastIndexOf("\")))
-            'If Me.selectedProfile.VerzeichnisLöschen Then
-            '    Try
-            '        If Me.txtQuellordner.Text <> "" Then
-            '             My.Computer.FileSystem.DeleteDirectory(Me.txtQuellordner.Text, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
-            '        End If
-            '    Catch ex As Exception
-            '        MsgBox("Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", MsgBoxStyle.Information, "Vorgang beendet:")
-            '    End Try
-            'End If
+                ' Fehlermeldung für fehlerhafte Profile anzeigen
+                ' NUR wenn keine MessageBox bereits angezeigt wird
+                If FehlerProfileListe.Count > 0 AndAlso Not FehlerMsgBoxVisible Then
+                    ' Flag setzen BEVOR die MessageBox angezeigt wird
+                    FehlerMsgBoxVisible = True
+
+                    Dim fehlerMessage As New System.Text.StringBuilder()
+                    fehlerMessage.AppendLine("ACHTUNG: Fehler in folgenden Profilen:")
+                    fehlerMessage.AppendLine()
+
+                    For Each profilname As String In FehlerProfileListe
+                        fehlerMessage.AppendLine("  • " & profilname)
+                    Next
+
+                    fehlerMessage.AppendLine()
+                    fehlerMessage.AppendLine("Bitte kontrollieren Sie die hinterlegten Quell- und Zielpfade,")
+                    fehlerMessage.AppendLine("sowie die Zugriffsberechtigungen!")
+
+                    ' MessageBox anzeigen (blockiert bis Benutzer OK klickt)
+                    MsgBox(fehlerMessage.ToString(), MsgBoxStyle.Exclamation, "Fehlerhafte Profile erkannt")
+
+                    ' Flag zurücksetzen NACHDEM die MessageBox geschlossen wurde
+                    FehlerMsgBoxVisible = False
+
+                    ' Fehler auch im Log vermerken
+                    ClassLoggerDI.Add("======================================================================", False)
+                    ClassLoggerDI.Add(" FEHLERHAFTE PROFILE: " & FehlerProfileListe.Count, True)
+                    For Each profilname As String In FehlerProfileListe
+                        ClassLoggerDI.Add(" - " & profilname, True)
+                    Next
+                    ClassLoggerDI.Add("======================================================================", False)
+                End If
+            End If

            ' den ersten Knoten öffnen und direkt wieder schließen, damit der letzte Knoten korrekt angezeigt wird
            '    -> sonst wird das letzte Element nicht richtig (nur zur Hälfte) angezeigt
--- a/ToolCollection/frmNIHauptseite.Designer.vb
+++ b/ToolCollection/frmNIHauptseite.Designer.vb
@@ -49,6 +49,7 @@ Partial Class frmNIHauptseite
        Me.Label4 = New System.Windows.Forms.Label()
        Me.numIntervall = New System.Windows.Forms.NumericUpDown()
        Me.TabPage2 = New System.Windows.Forms.TabPage()
+        Me.pnlFooter = New System.Windows.Forms.Panel()
        Me.btnEdit = New System.Windows.Forms.Button()
        Me.btnStartProfile = New System.Windows.Forms.Button()
        Me.gridProfileOverview = New DevExpress.XtraGrid.GridControl()
@@ -75,6 +76,7 @@ Partial Class frmNIHauptseite
        Me.pnlInfos.SuspendLayout()
        CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
+        Me.pnlFooter.SuspendLayout()
        CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -95,7 +97,7 @@ Partial Class frmNIHauptseite
        Me.tcmain.Location = New System.Drawing.Point(0, 0)
        Me.tcmain.Name = "tcmain"
        Me.tcmain.SelectedIndex = 0
-        Me.tcmain.Size = New System.Drawing.Size(774, 547)
+        Me.tcmain.Size = New System.Drawing.Size(777, 547)
        Me.tcmain.TabIndex = 46
        '
        'tpMain
@@ -347,22 +349,33 @@ Partial Class frmNIHauptseite
        '
        'TabPage2
        '
-        Me.TabPage2.Controls.Add(Me.btnEdit)
-        Me.TabPage2.Controls.Add(Me.btnStartProfile)
+        Me.TabPage2.Controls.Add(Me.pnlFooter)
        Me.TabPage2.Controls.Add(Me.gridProfileOverview)
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(766, 521)
+        Me.TabPage2.Size = New System.Drawing.Size(769, 521)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Profilübersicht"
        Me.TabPage2.UseVisualStyleBackColor = True
        '
+        'pnlFooter
+        '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.pnlFooter.Controls.Add(Me.btnEdit)
+        Me.pnlFooter.Controls.Add(Me.btnStartProfile)
+        Me.pnlFooter.Location = New System.Drawing.Point(3, 480)
+        Me.pnlFooter.Name = "pnlFooter"
+        Me.pnlFooter.Size = New System.Drawing.Size(763, 38)
+        Me.pnlFooter.TabIndex = 3
+        '
        'btnEdit
        '
+        Me.btnEdit.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.btnEdit.Image = Global.ToolCollection.My.Resources.Resources.cog_edit
        Me.btnEdit.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnEdit.Location = New System.Drawing.Point(530, 487)
+        Me.btnEdit.Location = New System.Drawing.Point(527, 9)
        Me.btnEdit.Name = "btnEdit"
        Me.btnEdit.Size = New System.Drawing.Size(120, 23)
        Me.btnEdit.TabIndex = 2
@@ -372,9 +385,10 @@ Partial Class frmNIHauptseite
        '
        'btnStartProfile
        '
+        Me.btnStartProfile.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.btnStartProfile.Image = Global.ToolCollection.My.Resources.Resources.arrow_right
        Me.btnStartProfile.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
-        Me.btnStartProfile.Location = New System.Drawing.Point(656, 487)
+        Me.btnStartProfile.Location = New System.Drawing.Point(653, 9)
        Me.btnStartProfile.Name = "btnStartProfile"
        Me.btnStartProfile.Size = New System.Drawing.Size(100, 23)
        Me.btnStartProfile.TabIndex = 1
@@ -384,12 +398,14 @@ Partial Class frmNIHauptseite
        '
        'gridProfileOverview
        '
-        Me.gridProfileOverview.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.gridProfileOverview.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.gridProfileOverview.Location = New System.Drawing.Point(3, 3)
        Me.gridProfileOverview.MainView = Me.GridView1
        Me.gridProfileOverview.Name = "gridProfileOverview"
        Me.gridProfileOverview.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemCheckEdit1, Me.RepositoryItemGridLookUpEdit1})
-        Me.gridProfileOverview.Size = New System.Drawing.Size(760, 515)
+        Me.gridProfileOverview.Size = New System.Drawing.Size(763, 471)
        Me.gridProfileOverview.TabIndex = 0
        Me.gridProfileOverview.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
        '
@@ -402,9 +418,9 @@ Partial Class frmNIHauptseite
        Me.GridView1.OptionsBehavior.Editable = False
        Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
        Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
+        Me.GridView1.OptionsView.ColumnAutoWidth = False
        Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
        Me.GridView1.OptionsView.ShowAutoFilterRow = True
-        Me.GridView1.OptionsView.ShowFooter = True
        Me.GridView1.OptionsView.ShowGroupPanel = False
        '
        'RepositoryItemCheckEdit1
@@ -492,7 +508,7 @@ Partial Class frmNIHauptseite
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(774, 547)
+        Me.ClientSize = New System.Drawing.Size(777, 547)
        Me.Controls.Add(Me.tcmain)
        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIHauptseite_Loc", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -511,6 +527,7 @@ Partial Class frmNIHauptseite
        Me.pnlInfos.PerformLayout()
        CType(Me.numIntervall, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
+        Me.pnlFooter.ResumeLayout(False)
        CType(Me.gridProfileOverview, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.RepositoryItemCheckEdit1, System.ComponentModel.ISupportInitialize).EndInit()
@@ -569,4 +586,5 @@ Partial Class frmNIHauptseite
    Friend WithEvents RepositoryItemGridLookUpEdit1View As DevExpress.XtraGrid.Views.Grid.GridView
    Friend WithEvents btnEdit As Button
    Friend WithEvents btnStartProfile As Button
+    Friend WithEvents pnlFooter As Panel
 End Class
--- a/ToolCollection/frmNIHauptseite.resx
+++ b/ToolCollection/frmNIHauptseite.resx
@@ -163,7 +163,7 @@
    <value>984, 56</value>
  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>297</value>
+    <value>132</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">
--- a/ToolCollection/frmNIHauptseite.vb
+++ b/ToolCollection/frmNIHauptseite.vb
@@ -2,6 +2,9 @@
 Imports System.Data.Entity.Core.Common.CommandTrees.ExpressionBuilder
 Imports System.IO
 Imports System.Text.RegularExpressions
+Imports DevExpress.Utils.Extensions
+Imports DevExpress.XtraEditors.Controls
+Imports DevExpress.XtraGrid.Views.Grid
 Imports DigitalData.Modules.Logging
 Imports WINDREAMLib

@@ -44,6 +47,7 @@ Public Class frmNIHauptseite
    Private licenseManager As ClassLicenseManager = Nothing
    Public Shared _windream As ClassWindream_allgemein
    Private Const ConstWMEntityDocument = 1 ''WINDREAMLib.WMEntity.WMEntityDocument
+    Private _singleProfileRun As String = ""
    Public Shared Function Instance() As frmNIHauptseite
        If _Instance Is Nothing OrElse _Instance.IsDisposed = True Then
            _Instance = New frmNIHauptseite
@@ -149,6 +153,10 @@ Public Class frmNIHauptseite

        Me.gridProfileOverview.DataSource = dtProfiles

+        Me.GridView1.Columns("Aktiv").Width = 70
+        Me.GridView1.Columns("Name").Width = 400
+        Me.GridView1.Columns("Objekttyp").Width = 245
+
    End Sub

    Private Sub frmNIHauptseite_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -349,6 +357,15 @@ Public Class frmNIHauptseite
            Dim _Fehler As Boolean = False
            For Each profil As ClassNIProfil In ClassNIProfile.Profile
                _Fehler = False
+                If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                    If _singleProfileRun <> profil.Profilname Then
+                        Continue For
+                    Else
+                        Me.aktivesProfil = profil
+                        _Logger.Info($"Manual Run for profile [{_singleProfileRun}] will be started.")
+                    End If
+                End If
+
                ' aktuelles Profil der Klasse mitteilen
                Me.aktivesProfil = profil
                _clsWorkfile = New clsNI_WorkFile(_MyLogger)
@@ -625,6 +642,7 @@ Public Class frmNIHauptseite
                ' nächstes Profil an ProgressBar1
                bwProfil.ReportProgress(-2)
            Next
+
        Catch ex As Exception
            _Logger.Error(ex)

@@ -653,11 +671,25 @@ Public Class frmNIHauptseite
            _Logger.Info("")

        End If
+
        Dim actdatetime = Now
        Dim newrun_dt As DateTime = actdatetime.AddMinutes(Me.numIntervall.Value)
-        Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
-        tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
-        Me.tslblStatus.Visible = True
+
+        If My.Settings.vNIRunning Then
+            Me.lblStatus.Text = $"(Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString})"
+            tslblStatus.Text = $"Status: WARTEN auf den nächsten Durchlauf: {newrun_dt.ToString}"
+            Me.tslblStatus.Visible = True
+        End If
+
+        If Not String.IsNullOrWhiteSpace(_singleProfileRun) Then
+            _singleProfileRun = ""
+            My.Settings.vNIsingleProfileRunning = False
+            My.Settings.vNIRunning = False
+            Me.lblStatus.Text = $"(Status: Nachindexieren beendet)"
+            tslblStatus.Text = "Status: Nachindexieren beendet"
+            btnStartStop.Text = "Nachindexierung starten"
+            btnStartProfile.Enabled = True
+        End If

    End Sub

@@ -754,7 +786,11 @@ Public Class frmNIHauptseite
                    End If

                    Me.ProgressBar1.Minimum = 0
-                    Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    If String.IsNullOrWhiteSpace(_singleProfileRun) Then
+                        Me.ProgressBar1.Maximum = ClassNIProfile.Count
+                    Else
+                        Me.ProgressBar1.Maximum = 1
+                    End If
                    Me.ProgressBar1.Value = 0

                    Me.Refresh()
@@ -2753,7 +2789,9 @@ Public Class frmNIHauptseite
        End If
        manually_cancel = False
        Me.timRun.Interval = Me.numIntervall.Value * 60 * 1000
-        Me.timRun.Start()
+        If My.Settings.vNIRunning Then
+            Me.timRun.Start()
+        End If
        'Variable für den Fall Programmabbruch und Neustart!
        bwProfil = New BackgroundWorker
        bwsearch = New BackgroundWorker
@@ -2851,19 +2889,19 @@ Public Class frmNIHauptseite
        Else
            TimerRefresh.Stop()
        End If
-        If My.Settings.vNIRunning Then
+        If My.Settings.vNIRunning Or My.Settings.vNIsingleProfileRunning Then
            If timRun.Enabled = True Then
                timRun.Stop()
            End If
-            Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
            My.Settings.vNIRunning = False
            My.Settings.Save()
+            Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
            Me.btnStartStop.Text = "Nachindexierung starten"
            Me.btnStartProfile.Enabled = True
        Else
-            Start_NachindexierungThreads()
            My.Settings.vNIRunning = True
            My.Settings.Save()
+            Start_NachindexierungThreads()
            Me.btnStartStop.Text = "Nachindexierung stoppen"
            Me.btnStartProfile.Enabled = False
        End If
@@ -2872,25 +2910,28 @@ Public Class frmNIHauptseite

    'NI Starten aus Profilübersicht
    Private Sub btnStartProfile_Click(sender As Object, e As EventArgs) Handles btnStartProfile.Click
-        If TimerRefresh.Enabled = False Then
-            TimerRefresh.Start()
-        Else
-            TimerRefresh.Stop()
-        End If
+
        If My.Settings.vNIRunning Then
-            'If timRun.Enabled = True Then
-            '    timRun.Stop()
-            'End If
-            'Abbruch_NI("Manueller Abbruch 1 durch User " & Environment.UserName, False, False)
-            'Me.btnStartStop.Text = "Nachindexierung starten"
-            Me.btnStartProfile.Enabled = True
-            MsgBox("Nachindexierung läuft bereits.")
-        Else
-            Start_NachindexierungThreads()
-            My.Settings.vNIRunning = True
-            My.Settings.Save()
-            Me.btnStartStop.Text = "Nachindexierung stoppen"
            Me.btnStartProfile.Enabled = False
+        Else
+
+            Dim view As DevExpress.XtraGrid.Views.Grid.GridView = TryCast(gridProfileOverview.MainView, DevExpress.XtraGrid.Views.Grid.GridView)
+            If view Is Nothing OrElse view.FocusedRowHandle < 0 Then
+                MsgBox("Bitte wählen Sie ein Profil aus.", "Hinweis", MsgBoxStyle.Information)
+                Exit Sub
+            End If
+
+            Dim profilname As String = Convert.ToString(view.GetRowCellValue(view.FocusedRowHandle, "Name"))
+            If Not String.IsNullOrWhiteSpace(profilname) Then
+                _singleProfileRun = profilname
+                My.Settings.vNIsingleProfileRunning = True
+                My.Settings.Save()
+                Start_NachindexierungThreads()
+                btnStartStop.Text = "Nachindexierung stoppen"
+                btnStartProfile.Enabled = False
+                Me.tcmain.SelectedTab = tpMain
+            End If
+
        End If
        manuallyRun = False
    End Sub
--- a/ToolCollection/frmNIProfileigenschaften.Designer.vb
+++ b/ToolCollection/frmNIProfileigenschaften.Designer.vb
@@ -24,15 +24,15 @@ Partial Class frmNIProfileigenschaften
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNIProfileigenschaften))
-        Dim TreeNode10 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
-        Dim TreeNode11 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
-        Dim TreeNode12 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
-        Dim TreeNode13 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode10, TreeNode11, TreeNode12})
-        Dim TreeNode14 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode13})
-        Dim TreeNode15 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode14})
-        Dim TreeNode16 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode15})
-        Dim TreeNode17 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode16})
-        Dim TreeNode18 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode17})
+        Dim TreeNode1 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 1")
+        Dim TreeNode2 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 2")
+        Dim TreeNode3 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Datei 3")
+        Dim TreeNode4 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Parent", New System.Windows.Forms.TreeNode() {TreeNode1, TreeNode2, TreeNode3})
+        Dim TreeNode5 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-1", New System.Windows.Forms.TreeNode() {TreeNode4})
+        Dim TreeNode6 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-2", New System.Windows.Forms.TreeNode() {TreeNode5})
+        Dim TreeNode7 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-3", New System.Windows.Forms.TreeNode() {TreeNode6})
+        Dim TreeNode8 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("-4", New System.Windows.Forms.TreeNode() {TreeNode7})
+        Dim TreeNode9 As System.Windows.Forms.TreeNode = New System.Windows.Forms.TreeNode("Windream-/W-Laufwerk", New System.Windows.Forms.TreeNode() {TreeNode8})
        Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
        Me.btnSpeichern = New System.Windows.Forms.ToolStripDropDownButton()
        Me.btnLöschen = New System.Windows.Forms.ToolStripDropDownButton()
@@ -178,7 +178,7 @@ Partial Class frmNIProfileigenschaften
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
        Me.StatusStrip1.ShowItemToolTips = True
-        Me.StatusStrip1.Size = New System.Drawing.Size(991, 22)
+        Me.StatusStrip1.Size = New System.Drawing.Size(984, 22)
        Me.StatusStrip1.SizingGrip = False
        Me.StatusStrip1.TabIndex = 23
        Me.StatusStrip1.Text = "StatusStrip1"
@@ -557,14 +557,15 @@ Partial Class frmNIProfileigenschaften
        '
        'btnVerknüpfungen
        '
-        Me.btnVerknüpfungen.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.btnVerknüpfungen.Location = New System.Drawing.Point(746, 26)
+        Me.btnVerknüpfungen.Anchor = System.Windows.Forms.AnchorStyles.Right
+        Me.btnVerknüpfungen.Image = Global.ToolCollection.My.Resources.Resources.link
+        Me.btnVerknüpfungen.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.btnVerknüpfungen.Location = New System.Drawing.Point(791, 30)
        Me.btnVerknüpfungen.Name = "btnVerknüpfungen"
-        Me.btnVerknüpfungen.Size = New System.Drawing.Size(171, 23)
+        Me.btnVerknüpfungen.Size = New System.Drawing.Size(169, 28)
        Me.btnVerknüpfungen.TabIndex = 49
-        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten ..."
+        Me.btnVerknüpfungen.Text = "Verknüpfungen verwalten"
+        Me.btnVerknüpfungen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnVerknüpfungen.UseVisualStyleBackColor = True
        Me.btnVerknüpfungen.Visible = False
        '
@@ -733,10 +734,11 @@ Partial Class frmNIProfileigenschaften
        '
        'lblSave
        '
+        Me.lblSave.Anchor = System.Windows.Forms.AnchorStyles.Right
        Me.lblSave.AutoSize = True
        Me.lblSave.BackColor = System.Drawing.Color.Yellow
        Me.lblSave.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblSave.Location = New System.Drawing.Point(656, 71)
+        Me.lblSave.Location = New System.Drawing.Point(699, 76)
        Me.lblSave.Name = "lblSave"
        Me.lblSave.Size = New System.Drawing.Size(261, 17)
        Me.lblSave.TabIndex = 76
@@ -771,7 +773,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabControl1.Location = New System.Drawing.Point(3, 222)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(985, 481)
+        Me.TabControl1.Size = New System.Drawing.Size(978, 491)
        Me.TabControl1.TabIndex = 78
        '
        'TabPage1
@@ -784,7 +786,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(977, 455)
+        Me.TabPage1.Size = New System.Drawing.Size(970, 465)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "Typ und Quelle"
        Me.TabPage1.UseVisualStyleBackColor = True
@@ -805,7 +807,7 @@ Partial Class frmNIProfileigenschaften
        Me.grbxLDAP.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.grbxLDAP.Location = New System.Drawing.Point(407, 210)
        Me.grbxLDAP.Name = "grbxLDAP"
-        Me.grbxLDAP.Size = New System.Drawing.Size(508, 215)
+        Me.grbxLDAP.Size = New System.Drawing.Size(501, 225)
        Me.grbxLDAP.TabIndex = 79
        Me.grbxLDAP.TabStop = False
        Me.grbxLDAP.Text = "Indexierung gegen Active Directory:"
@@ -907,7 +909,7 @@ Partial Class frmNIProfileigenschaften
        Me.grbxVolltext.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.grbxVolltext.Location = New System.Drawing.Point(568, 18)
        Me.grbxVolltext.Name = "grbxVolltext"
-        Me.grbxVolltext.Size = New System.Drawing.Size(392, 201)
+        Me.grbxVolltext.Size = New System.Drawing.Size(385, 211)
        Me.grbxVolltext.TabIndex = 78
        Me.grbxVolltext.TabStop = False
        Me.grbxVolltext.Text = "Indexierung gegen den Volltext"
@@ -960,7 +962,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(970, 556)
+        Me.TabPage2.Size = New System.Drawing.Size(958, 455)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "Kennzeichnung und Active Directory"
        Me.TabPage2.UseVisualStyleBackColor = True
@@ -996,7 +998,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage3.Location = New System.Drawing.Point(4, 22)
        Me.TabPage3.Name = "TabPage3"
        Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(882, 416)
+        Me.TabPage3.Size = New System.Drawing.Size(958, 455)
        Me.TabPage3.TabIndex = 2
        Me.TabPage3.Text = "Nachbearbeitungsfunktionen 1 (Verschieben, umbenennen)"
        Me.TabPage3.UseVisualStyleBackColor = True
@@ -1283,7 +1285,7 @@ Partial Class frmNIProfileigenschaften
        Me.TabPage4.Location = New System.Drawing.Point(4, 22)
        Me.TabPage4.Name = "TabPage4"
        Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage4.Size = New System.Drawing.Size(882, 416)
+        Me.TabPage4.Size = New System.Drawing.Size(958, 455)
        Me.TabPage4.TabIndex = 3
        Me.TabPage4.Text = "Nachbearbeitungsfunktionen 2 (Ordnerindizes etc)"
        Me.TabPage4.UseVisualStyleBackColor = True
@@ -1323,31 +1325,31 @@ Partial Class frmNIProfileigenschaften
        Me.TreeViewOrdnerVererbung.ImageList = Me.ImageList1
        Me.TreeViewOrdnerVererbung.Location = New System.Drawing.Point(464, 72)
        Me.TreeViewOrdnerVererbung.Name = "TreeViewOrdnerVererbung"
-        TreeNode10.ImageKey = "page.png"
-        TreeNode10.Name = "Knoten3"
-        TreeNode10.SelectedImageIndex = 1
-        TreeNode10.Text = "Datei 1"
-        TreeNode11.ImageKey = "page.png"
-        TreeNode11.Name = "Knoten4"
-        TreeNode11.SelectedImageIndex = 1
-        TreeNode11.Text = "Datei 2"
-        TreeNode12.ImageKey = "page.png"
-        TreeNode12.Name = "Knoten5"
-        TreeNode12.SelectedImageIndex = 1
-        TreeNode12.Text = "Datei 3"
-        TreeNode13.Name = "Knoten4"
-        TreeNode13.Text = "Parent"
-        TreeNode14.Name = "Knoten3"
-        TreeNode14.Text = "-1"
-        TreeNode15.Name = "Knoten2"
-        TreeNode15.Text = "-2"
-        TreeNode16.Name = "Knoten5"
-        TreeNode16.Text = "-3"
-        TreeNode17.Name = "Knoten1"
-        TreeNode17.Text = "-4"
-        TreeNode18.Name = "Knoten0"
-        TreeNode18.Text = "Windream-/W-Laufwerk"
-        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode18})
+        TreeNode1.ImageKey = "page.png"
+        TreeNode1.Name = "Knoten3"
+        TreeNode1.SelectedImageIndex = 1
+        TreeNode1.Text = "Datei 1"
+        TreeNode2.ImageKey = "page.png"
+        TreeNode2.Name = "Knoten4"
+        TreeNode2.SelectedImageIndex = 1
+        TreeNode2.Text = "Datei 2"
+        TreeNode3.ImageKey = "page.png"
+        TreeNode3.Name = "Knoten5"
+        TreeNode3.SelectedImageIndex = 1
+        TreeNode3.Text = "Datei 3"
+        TreeNode4.Name = "Knoten4"
+        TreeNode4.Text = "Parent"
+        TreeNode5.Name = "Knoten3"
+        TreeNode5.Text = "-1"
+        TreeNode6.Name = "Knoten2"
+        TreeNode6.Text = "-2"
+        TreeNode7.Name = "Knoten5"
+        TreeNode7.Text = "-3"
+        TreeNode8.Name = "Knoten1"
+        TreeNode8.Text = "-4"
+        TreeNode9.Name = "Knoten0"
+        TreeNode9.Text = "Windream-/W-Laufwerk"
+        Me.TreeViewOrdnerVererbung.Nodes.AddRange(New System.Windows.Forms.TreeNode() {TreeNode9})
        Me.TreeViewOrdnerVererbung.SelectedImageIndex = 0
        Me.TreeViewOrdnerVererbung.Size = New System.Drawing.Size(220, 157)
        Me.TreeViewOrdnerVererbung.TabIndex = 59
@@ -1452,20 +1454,21 @@ Partial Class frmNIProfileigenschaften
        Me.pnlProfileigenschaften.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlProfileigenschaften.Location = New System.Drawing.Point(0, 22)
        Me.pnlProfileigenschaften.Name = "pnlProfileigenschaften"
-        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(991, 706)
+        Me.pnlProfileigenschaften.Size = New System.Drawing.Size(984, 716)
        Me.pnlProfileigenschaften.TabIndex = 81
        '
        'frmNIProfileigenschaften
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(991, 728)
+        Me.ClientSize = New System.Drawing.Size(984, 738)
        Me.Controls.Add(Me.pnlProfileigenschaften)
        Me.Controls.Add(Me.StatusStrip1)
        Me.DataBindings.Add(New System.Windows.Forms.Binding("Location", Global.ToolCollection.My.MySettings.Default, "frmNIProfileigenschaften", True, System.Windows.Forms.DataSourceUpdateMode.OnPropertyChanged))
        Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Location = Global.ToolCollection.My.MySettings.Default.frmNIProfileigenschaften
+        Me.MinimumSize = New System.Drawing.Size(1000, 750)
        Me.Name = "frmNIProfileigenschaften"
        Me.Text = "Profileigenschaften Nachindexierung"
        Me.StatusStrip1.ResumeLayout(False)
--- a/ToolCollection/frmNIProfileigenschaften.resx
+++ b/ToolCollection/frmNIProfileigenschaften.resx
@@ -161,7 +161,7 @@ einen Startindex erhält, der nicht in der Datenbank existiert. Diese Kennzeichn
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAK
-        CQAAAk1TRnQBSQFMAgEBAgEAAbABAAGwAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        CQAAAk1TRnQBSQFMAgEBAgEAAcgBAAHIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/ToolCollection/frmNIVerknuepfungen.Designer.vb
+++ b/ToolCollection/frmNIVerknuepfungen.Designer.vb
@@ -1908,11 +1908,12 @@ Partial Class frmNIVerknuepfungen
        '
        'pnlFooter
        '
+        Me.pnlFooter.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.pnlFooter.BackColor = System.Drawing.Color.Transparent
        Me.pnlFooter.Controls.Add(Me.btnSaveAllAndClose)
        Me.pnlFooter.Controls.Add(Me.btnCancelAllAndClose)
        Me.pnlFooter.Controls.Add(Me.btnSaveAll)
-        Me.pnlFooter.Dock = System.Windows.Forms.DockStyle.Fill
        Me.pnlFooter.Location = New System.Drawing.Point(0, 250)
        Me.pnlFooter.Name = "pnlFooter"
        Me.pnlFooter.Size = New System.Drawing.Size(1265, 44)
@@ -1920,6 +1921,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnSaveAllAndClose
        '
+        Me.btnSaveAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSaveAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnSaveAllAndClose.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnSaveAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1932,6 +1934,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnCancelAllAndClose
        '
+        Me.btnCancelAllAndClose.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnCancelAllAndClose.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnCancelAllAndClose.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.btnCancelAllAndClose.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -1944,6 +1947,7 @@ Partial Class frmNIVerknuepfungen
        '
        'btnSaveAll
        '
+        Me.btnSaveAll.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnSaveAll.BackColor = System.Drawing.SystemColors.ControlLightLight
        Me.btnSaveAll.Enabled = False
        Me.btnSaveAll.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
--- a/ToolCollection/frmStart.Designer.vb
+++ b/ToolCollection/frmStart.Designer.vb
@@ -63,6 +63,7 @@ Partial Class frmStart
        Me.TimerNIRestart = New System.Windows.Forms.Timer(Me.components)
        Me.TimerErrorLog = New System.Windows.Forms.Timer(Me.components)
        Me.TimerDeleteLogfiles = New System.Windows.Forms.Timer(Me.components)
+        Me.ToolStripStatusLabel_ConnectionString = New System.Windows.Forms.ToolStripStatusLabel()
        Me.StatusStrip1.SuspendLayout()
        Me.menHauptmenü.SuspendLayout()
        Me.Panel1.SuspendLayout()
@@ -75,7 +76,7 @@ Partial Class frmStart
        '
        'StatusStrip1
        '
-        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime})
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.Status_Machine, Me.ToolStripStatusLabel2, Me.tslblVersion, Me.ToolStripStatusLabel_LogDeleteTime, Me.ToolStripStatusLabel_ConnectionString})
        Me.StatusStrip1.Location = New System.Drawing.Point(0, 613)
        Me.StatusStrip1.Name = "StatusStrip1"
        Me.StatusStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.ManagerRenderMode
@@ -93,7 +94,7 @@ Partial Class frmStart
        Me.Status_Machine.Image = CType(resources.GetObject("Status_Machine.Image"), System.Drawing.Image)
        Me.Status_Machine.Margin = New System.Windows.Forms.Padding(10, 3, 0, 2)
        Me.Status_Machine.Name = "Status_Machine"
-        Me.Status_Machine.Size = New System.Drawing.Size(139, 20)
+        Me.Status_Machine.Size = New System.Drawing.Size(140, 20)
        Me.Status_Machine.Text = "ToolStripStatusLabel1"
        Me.Status_Machine.ToolTipText = "Client-Name"
        '
@@ -104,7 +105,7 @@ Partial Class frmStart
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.ToolStripStatusLabel2.Image = CType(resources.GetObject("ToolStripStatusLabel2.Image"), System.Drawing.Image)
        Me.ToolStripStatusLabel2.Name = "ToolStripStatusLabel2"
-        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(139, 20)
+        Me.ToolStripStatusLabel2.Size = New System.Drawing.Size(140, 20)
        Me.ToolStripStatusLabel2.Text = "ToolStripStatusLabel1"
        Me.ToolStripStatusLabel2.ToolTipText = "Aktueller Benutzer"
        '
@@ -114,7 +115,7 @@ Partial Class frmStart
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
        Me.tslblVersion.Name = "tslblVersion"
-        Me.tslblVersion.Size = New System.Drawing.Size(123, 20)
+        Me.tslblVersion.Size = New System.Drawing.Size(124, 20)
        Me.tslblVersion.Text = "ToolStripStatusLabel1"
        Me.tslblVersion.ToolTipText = "Aktueller Benutzer"
        '
@@ -149,20 +150,20 @@ Partial Class frmStart
        '
        Me.ÜbersichtToolStripMenuItem.Image = Global.ToolCollection.My.Resources.Resources.Auslesen1
        Me.ÜbersichtToolStripMenuItem.Name = "ÜbersichtToolStripMenuItem"
-        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ÜbersichtToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ÜbersichtToolStripMenuItem.Text = "Übersicht"
        '
        'BeendenToolStripMenuItem
        '
        Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
-        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.BeendenToolStripMenuItem.Text = "Beenden"
        '
        'ZeigeLogFileToolStripMenuItem
        '
        Me.ZeigeLogFileToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ÖffneLogverzeichnisToolStripMenuItem})
        Me.ZeigeLogFileToolStripMenuItem.Name = "ZeigeLogFileToolStripMenuItem"
-        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
+        Me.ZeigeLogFileToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
        Me.ZeigeLogFileToolStripMenuItem.Text = "Zeige Log-File"
        '
        'ÖffneLogverzeichnisToolStripMenuItem
@@ -424,7 +425,7 @@ Partial Class frmStart
        Me.niToolcollection.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
        Me.niToolcollection.ContextMenuStrip = Me.ContextMenuStrip1
        Me.niToolcollection.Icon = CType(resources.GetObject("niToolcollection.Icon"), System.Drawing.Icon)
-        Me.niToolcollection.Text = "Tool Collection für windream"
+        Me.niToolcollection.Text = $"ToolCollection - {My.Settings.vInstanceName}"
        '
        'ContextMenuStrip1
        '
@@ -451,6 +452,15 @@ Partial Class frmStart
        '
        Me.TimerDeleteLogfiles.Interval = 1000
        '
+        'ToolStripStatusLabel_ConnectionString
+        '
+        Me.ToolStripStatusLabel_ConnectionString.BorderSides = CType((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
+            Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
+        Me.ToolStripStatusLabel_ConnectionString.Name = "ToolStripStatusLabel_ConnectionString"
+        Me.ToolStripStatusLabel_ConnectionString.Size = New System.Drawing.Size(129, 20)
+        Me.ToolStripStatusLabel_ConnectionString.Text = "Datenbankverbindung"
+        '
        'frmStart
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -464,7 +474,7 @@ Partial Class frmStart
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.IsMdiContainer = True
        Me.Name = "frmStart"
-        Me.Text = "Tool Collection für windream"
+        Me.Text = $"ToolCollection - {My.Settings.vInstanceName}"
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        Me.menHauptmenü.ResumeLayout(False)
@@ -518,4 +528,5 @@ Partial Class frmStart
    Friend WithEvents TimerErrorLog As Timer
    Friend WithEvents TimerDeleteLogfiles As Timer
    Friend WithEvents ToolStripStatusLabel_LogDeleteTime As ToolStripStatusLabel
+    Friend WithEvents ToolStripStatusLabel_ConnectionString As ToolStripStatusLabel
 End Class
--- a/ToolCollection/frmStart.resx
+++ b/ToolCollection/frmStart.resx
@@ -124,28 +124,28 @@
  <data name="Status_Machine.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
-        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACzUlEQVQ4T32Ta0jTYRSH/xb1rSCkPgiV
-        VJgRRViRlBmZRJYmXS0zAylbmjYoNYlIzUXQcmVqpt285SWz0lBL5mXzMrfpinTz1ryBlWuLCfYhoqe/
-        Tcno8oPD74X3nOfwHs4rTOlcZRMZ/Xe53JtKqOYYHtmPWBNrYm24nsDYZiRXDSRndXDjXhu3MhrwiWxh
-        slQQwmoSUQxKqR4vI2c0nXTDRfJ0tTxtGUCp1FFe3kxuQR23C+rJqjFyvaKLjavDHYBDuRr869zEzqHk
-        W9IoGS6mr68fRUEl6ZVa8vXveDViQ/cdVF/hyWdIe/eVnVviHQCP1EGW5kg42LiKU22bkb65T1PHEAla
-        KzcGIW8Uysegahye2eHhR5D3w27fJAfAXWZidlIxroWLWFm2DJeCAZJfjiDXWEjshpsiJHsEHnyALNFT
-        BuCiCULOPHEAXM+2IpzQIZxvZ4Z8O04pi/G9VUaG+j3Rr+GCES73gKwXkkSP74TTBtgWoHAA3KI0CLue
-        IxyuQ4i4gBAnMC9CQm7tEMHNcFwHke2OogjRw7QQ1DgNsC7GyNwdJcz0zmfWrqvMCfHBSTw/zNPiWwMB
-        dbBPBfvVsFd0/1rYUf3tF2BCK46+YklQFV5HS/E8/IxNwfVcuanDu9DO+grYWAleYpys+UJi0RDnpOW/
-        A6Y0f3kUzi5HcF4QRKDfJfxyPuH5/DvXmsbJKjETF9dKcLCSVQv3/lk8XR57ikm4riY730hFRS+FhW9I
-        TTUglep/xoGAZCZyJtP/lOyOAbvdTnf3J2w2Gz09ZnEbO0lJaUMu16NQNCCJyPs34HGZDqvVytjYGBaL
-        RdxMMypVFy9evKWoSE+G+BdipDn/BpxMVIvd+xgeHsZs7qezs5eGBiMmU5/4nHoyM9X4b435/xwmpixL
-        eEBVlVacQyulpS1iZyXRkjQ2uIf8v3hKE5C/xeS1KEH4ASMFKV0feWVjAAAAAElFTkSuQmCC
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAACxklEQVQ4T33Qf0zMcRzH8W+M/9jM+MPm
+        x7BkxixM8yNDM6mYn5FkM3IibiNpzfTTbE5HPw7lRz8uV0m4sytaP+6un3dXp9Gd6871awtdZdeWP8w8
+        7ZzIjzy393+f1+OPjyD86Jy6HlnnHZJt6UQ0HcY35wHLz1tYEWlkx/kGRFdMpGS/5vrdFjJkGjadbGR0
+        KxypTETaLaZipIy8/iyyTBcpMFTzuLGLqioDSmUD+YU13CysJbvSzDXVG9Ysi/QA+/ObCK7xJtkWgdyZ
+        SUlvMXZ7J9JCNVlqPXLjW170DWH4CtrP8OgjZL79zLYNcR7AN72bBXki9tUt5UTLesRt96h/3UOCfpDr
+        3VDQD8phKB+BJy7I/QCSTtgekOQBfFItTE4qZp5iDkvKFjKrsIuU531ImpwkWuFGN+T0wf33kN0HaV1w
+        0QLhZx55gHlnmxGOGRAutDJBsgWvtLkEZJQh073j9EuIN0NyB6TaIKkD4trhlAk2h0g9gHd0E0LQU4QD
+        NQhR8QixAtOiRORX9xDWAEcNcLLVM4pqhSN6CK0bA6yMMTN1awkT/eVMCrrClPBNePnLyS3QE1AJITWw
+        Wwt7dLBLC8HVsLXiyy/A3eJDL5gfWs66Q6X4HXjC2rBaLt8w4K9wsUoFa9SwTg3HKz+RWNTDObHyd2C0
+        GYuimT7rINNnhrIj8BKBeQP4Pf3K1foRskscxMY2ExZWxdLZu/4ej813ZzEJ13TkyM2oVDYUijbS002I
+        xcbvtzckBfebP3c/S71twuVyYbUOMDQ0REeHA6WynbS0FiQSI1KpBlFUwfjAwzIDg4ODDA8P43Q6sdsd
+        aLVvePbsFUVFRmQyDTHivPGB44k6rFY7vb29OBydtLfb0GjMWCx2FIpabt3SEbwxZnzAnfuXUxPuU16u
+        R6VqprS0EZmsitOiTFb7hP9/PJob+deNffMNIwUpXcTyuqIAAAAASUVORK5CYII=
 </value>
  </data>
  <data name="ToolStripStatusLabel2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAACBjSFJNAAB6
-        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAmklEQVQ4T7WPIQ5DIRAF96gcgVtwBCor
-        K7+jsrIOWVlZWfkl3Wl2k+YrlqQvmZAA8xbkb0kpDce25oNEeu+j1hovQUBurY1SyloBk5FzzuvfcGxr
-        Pki7yHgrTyVU4rIa3/WlPCIlXGTy7wt6tACJyaxMDxcguAi3aAHcVQKXpwsIl68qwmYFdjQXhIuKcF4t
-        OKnoLBUcsaNDRD795Ki6zCeHqwAAAABJRU5ErkJggg==
+        JgAAgIQAAPoAAACA6AAAdTAAAOpgAAA6mAAAF3CculE8AAAAlUlEQVQ4T7WQIQ5CMRAF56g9Qm/RIxSJ
+        ROKKROIqkV8ikcglr8kSUgNbwkteKroz2xT+lZSSeee7jxGk9N6t1hqXCBDcWrNSyppAmwXnnOMC5ec/
+        eIDdwTaISRw2GOcN7BqRaFCb31/QowJB2qxT28MCAQ6q56hAvcCow18LFA2fYPQY2e4RcIDR/apgB68u
+        CebOM54n/eSouhlrbUcAAAAASUVORK5CYII=
 </value>
  </data>
  <metadata name="menHauptmenü.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@@ -159,7 +159,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAO
-        FAAAAk1TRnQBSQFMAgEBCQEAAVgBAwFYAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        FAAAAk1TRnQBSQFMAgEBCQEAAWABAwFgAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
        AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
        AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
--- a/ToolCollection/frmStart.vb
+++ b/ToolCollection/frmStart.vb
@@ -4,6 +4,7 @@ Imports System.Globalization
 Imports DigitalData.Modules.Logging
 Imports System.IO
 Imports DigitalData.Modules.Database
+Imports System.Text.RegularExpressions

 Public Class frmStart
    Private _MyLogger As LogConfig
@@ -113,13 +114,13 @@ Public Class frmStart
    End Sub

    Private Sub TimerDeleteLogfiles_Tick(sender As Object, e As EventArgs) Handles TimerDeleteLogfiles.Tick
-    Try
-        Delete_Logfiles()
-        ' Nächstes Intervall wieder 24h
-        TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
-    Catch ex As Exception
-        _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
-    End Try
+        Try
+            Delete_LogFiles()
+            ' Nächstes Intervall wieder 24h
+            TimerDeleteLogfiles.Interval = 24 * 60 * 60 * 1000
+        Catch ex As Exception
+            _Logger.Error("Fehler beim automatischen Löschen: " & ex.Message)
+        End Try
    End Sub

    Private Sub FMStart_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
@@ -175,6 +176,11 @@ Public Class frmStart
            Else
                Me.ToolStripStatusLabel_LogDeleteTime.Text = "Automatisches Löschen von Logs ist inaktiv."
            End If
+
+            Dim connectionString As String = My.Settings.DDECMConString
+            connectionString = Regex.Replace(connectionString, "(?i)(password|pwd)\s*=\s*[^;]*", "$1=******")
+            Me.ToolStripStatusLabel_ConnectionString.Text = $"Datenbankverbindung: {connectionString}"
+
            ' timUhrzeit.Start()
            TimerErrorLog.Start()

@@ -418,6 +424,9 @@ Public Class frmStart
        frm = frmNIHauptseite.Instance
        frm.MdiParent = Me
        frm.Show()
+        'frm.StartPosition = FormStartPosition.Manual
+        'frm.Location = New Point(50, 50)
+        'Dim loc = frm.Location.ToString()
        Cursor = Cursors.Default
    End Sub
    Private Sub btnNIMain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNIMain.Click
--- a/ToolCollection/frmUebersicht.Designer.vb
+++ b/ToolCollection/frmUebersicht.Designer.vb
@@ -249,7 +249,7 @@ Partial Class frmUebersicht
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MainMenuStrip = Me.MenuStrip1
        Me.Name = "frmUebersicht"
-        Me.Text = "Tool Collection für windream - Profil Übersicht (beta)"
+        Me.Text = "ToolCollection - Profil Übersicht (beta)"
        Me.StatusStrip1.ResumeLayout(False)
        Me.StatusStrip1.PerformLayout()
        Me.SplitContainer1.Panel1.ResumeLayout(False)
--- a/ToolCollection/frmabout.vb
+++ b/ToolCollection/frmabout.vb
@@ -16,7 +16,8 @@
        Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
        Me.LabelCopyright.Text = My.Application.Info.Copyright
        Me.LabelCompanyName.Text = My.Application.Info.CompanyName
-        Me.TextBoxDescription.Text = My.Application.Info.Description
+        'Me.TextBoxDescription.Text = My.Application.Info.Description
+        Me.TextBoxDescription.Text = "Autostart Parameter: /startFIM /startFIH"
    End Sub

    Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
Author	SHA1	Message	Date
OlgunR	c6c1ce4e70	Footer und Buttons verankert - frmNIVerknuepfungen	2025-12-04 09:47:25 +01:00
OlgunR	d278659c5f	Instanzname in Titelleiste der Form und bei Tray-Icon eingeblendet - frmStart.Designer	2025-12-04 09:29:30 +01:00
OlgunR	0c71f75a0c	Flag zur MsgBox bei fehlerhaften DIProfilen - frmDIHauptseite	2025-12-01 10:30:53 +01:00
OlgunR	3bb034439a	Fehlerbehandlung bei fehlerhaften Pfaden in DI Profilen: threadDateiimport_DoWork, Profil_Durchlauf, threadDateiimport_RunWorkerCompleted optimiert - frmDIHautpseite	2025-11-27 16:59:27 +01:00
OlgunR	a038af4193	chore: Update .gitignore to exclude Visual Studio `.vs` directory The `.gitignore` file was updated to include the `/.vs` directory. This ensures that temporary and user-specific files generated by Visual Studio are ignored by Git and not tracked in the repository, reducing unnecessary clutter in version control.	2025-11-27 09:24:08 +01:00
OlgunR	1ca62e0334	Button NI-Verknüpfungen verwalten optimiert - frmNIProfileigenschaften	2025-11-13 14:02:23 +01:00
OlgunR	483042a6fb	Ankern bei Laden von NI_Main verhindern - frmStart	2025-11-13 11:14:37 +01:00
OlgunR	a0d994bf7f	Footer in Pofilübersicht optimiert - frmNIHauptseite	2025-11-13 11:13:35 +01:00
OlgunR	ae3a2a9b14	Anzeigen des Connection Strings in der Statusleiste - frmStart	2025-11-07 14:12:37 +01:00
OlgunR	63dc69ecce	Spaltenbreite Profilübersicht angepasst - frmNIHauptseite	2025-11-07 08:52:18 +01:00
OlgunR	183d3d015a	Form schöner gemacht - frmDIHauptseite	2025-11-07 08:51:50 +01:00
OlgunR	826ce81353	Minimum Minuten bei DI auf 1 - frmDIHauptseite; Autostart Parameter im Descriptionfeld - frmAbout	2025-11-06 14:33:33 +01:00
OlgunR	da2321d362	Starten und Stoppen der NI mit einzelnen Profilen verbessert - frmNIHauptseite	2025-11-06 12:49:19 +01:00
OlgunR	49bfc4b40b	Starten und Stoppen der NI mit einzelnen Profilen - frmNIHauptseite	2025-11-06 11:32:51 +01:00
OlgunR	f9aacb19cc	Minimumgröße Profileigenschaften - frmNIProfileigenschaften	2025-11-03 15:33:54 +01:00
OlgunR	66cc2e27ec	Progressbar zum Durchlauf der Profile auch bei einzelnem Profil korrekt - frmNIHautpseite	2025-10-29 14:12:53 +01:00
OlgunR	d3dfabfbe2	Starten eines einzelnen NI Profils - frmNIHauptseite	2025-10-29 10:13:11 +01:00