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
24 changed files with 346 additions and 190 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/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("")> 
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("ToolCollection")>
-<Assembly: AssemblyCopyright("Copyright © Digital Data 2019")>
+<Assembly: AssemblyCopyright("Copyright © Digital Data 2025")>
 <Assembly: AssemblyTrademark("")> 

 <Assembly: ComVisible(False)>
--- 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,43 +349,63 @@ 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.Location = New System.Drawing.Point(530, 487)
+        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(527, 9)
        Me.btnEdit.Name = "btnEdit"
-        Me.btnEdit.Size = New System.Drawing.Size(110, 23)
+        Me.btnEdit.Size = New System.Drawing.Size(120, 23)
        Me.btnEdit.TabIndex = 2
        Me.btnEdit.Text = "Profil Bearbeiten"
+        Me.btnEdit.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnEdit.UseVisualStyleBackColor = True
        '
        'btnStartProfile
        '
-        Me.btnStartProfile.Location = New System.Drawing.Point(646, 487)
+        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(653, 9)
        Me.btnStartProfile.Name = "btnStartProfile"
-        Me.btnStartProfile.Size = New System.Drawing.Size(110, 23)
+        Me.btnStartProfile.Size = New System.Drawing.Size(100, 23)
        Me.btnStartProfile.TabIndex = 1
        Me.btnStartProfile.Text = "Profil Starten"
+        Me.btnStartProfile.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnStartProfile.UseVisualStyleBackColor = True
        '
        '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})
        '
@@ -396,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
@@ -486,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))
@@ -505,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()
@@ -563,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
@@ -120,6 +120,9 @@
  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>248, 56</value>
  </metadata>
+  <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>248, 56</value>
+  </metadata>
  <data name="Label6.Text" xml:space="preserve">
    <value>Es wird empfohlen, das Intervall nicht auf weniger als 30 Minuten zu setzen, da der nächste Nachindexierungsdurchlauf nur gestartet werden kann, wenn der vorherige beendet wurde. Wenn zu erwarten ist, dass viele Dokumente nachindexiert werden sollen, sollte der Intervall für diesen Durchlauf entsprechend hoch gesetzt werden ( &gt; 2 Stunden).</value>
  </data>
@@ -160,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
OlgunR	c92858af08	Profilübersicht Buttons verschönert - frmNIHauptseite	2025-10-22 17:14:05 +02:00
OlgunR	c3d018e40e	Copyright aktualisiert	2025-10-22 17:04:16 +02:00