Compare commits

...

2 Commits

Author SHA1 Message Date
Jonathan Jenne
5622af9f04 Version 2.4.0.11 2021-07-07 16:25:39 +02:00
Jonathan Jenne
bb59b39773 exit file index loop when multiindexing was on 2021-07-07 16:25:27 +02:00
3 changed files with 9 additions and 4 deletions

View File

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.4.0.10")>
<Assembly: AssemblyVersion("2.4.0.11")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: NeutralResourcesLanguageAttribute("")>

View File

@@ -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

View File

@@ -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()