exit file index loop when multiindexing was on

Global_Indexer/frmIndexFileList.vb

@@ -33,12 +33,11 @@ Public Class frmIndexFileList
 
                 CheckedListBoxControl1.Items.Add(New SplitFile With {
                     .FileName = oFilename,
-                    .Exists = oFileExists
+                    .Exists = oFileExists,
+                    .[Date] = oImportDate
                 })
             Next
 
-
-
             CheckedListBoxControl1.CheckAll()
 
         Catch ex As Exception
@@ -50,6 +49,7 @@ Public Class frmIndexFileList
     Public Class SplitFile
         Public FileName As String
         Public Exists As Boolean
+        Public [Date] As Date
 
         Public Overrides Function ToString() As String
             If Exists Then

Global_Indexer/frmStart.vb

@@ -218,6 +218,11 @@ Public Class frmStart
                 If File.Exists(CURRENT_WORKFILE) = True And DTACTUAL_FILES.Rows.Count > 0 Then
                     Open_IndexDialog()
                 End If
+
+                ' If multi-indexing is active, all files have been indexed by now, so we can leave the loop
+                If MULTIINDEXING_ACTIVE Then
+                    Exit For
+                End If
             Next
 
             Show()