From bb59b39773c847209b36d9be0fe5810fd774ee55 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Wed, 7 Jul 2021 16:25:27 +0200
Subject: [PATCH] exit file index loop when multiindexing was on

---
 Global_Indexer/frmIndexFileList.vb | 6 +++---
 Global_Indexer/frmStart.vb         | 5 +++++
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Global_Indexer/frmIndexFileList.vb b/Global_Indexer/frmIndexFileList.vb
index bb05717..0e33cd0 100644
--- a/Global_Indexer/frmIndexFileList.vb
+++ b/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
diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb
index 3c9bc7a..2b1cdb1 100644
--- a/Global_Indexer/frmStart.vb
+++ b/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()