Bugfixes 2.4.0.9

Global_Indexer/frmIndexFileList.vb

@@ -8,11 +8,36 @@ Public Class frmIndexFileList
             Me.TBGI_FILES_USERTableAdapter.Connection.ConnectionString = MyConnectionString
             Me.TBGI_FILES_USERTableAdapter.Fill(Me.MyDataset1.TBGI_FILES_USER, Environment.UserName)
 
-            If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
-                CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
-                CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
-                CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
-            End If
+            'If MyDataset1.TBGI_FILES_USER.Rows.Count > 0 Then
+            '    CheckedListBoxControl1.DataSource = MyDataset1.TBGI_FILES_USER
+            '    CheckedListBoxControl1.DisplayMember = MyDataset1.TBGI_FILES_USER.Columns("FILENAME_ONLY").ColumnName
+            '    CheckedListBoxControl1.ValueMember = MyDataset1.TBGI_FILES_USER.Columns(0).ColumnName
+            'End If
+
+            CheckedListBoxControl1.DisplayMember = "FileName"
+            CheckedListBoxControl1.ValueMember = "FileName"
+            CheckedListBoxControl1.Items.Clear()
+
+            For Each oFile As DataRow In MyDataset1.TBGI_FILES_USER.Rows
+                Dim oFilename = oFile.Item("FILENAME_ONLY")
+                Dim oPath = oFile.Item("FILENAME2WORK")
+                Dim oHash = oFile.Item("FILE_HASH")
+                Dim oHandleType = oFile.Item("HANDLE_TYPE")
+
+                Dim oImportDate = ClassIndexFunctions.FileExistsinDropTable(oPath, oHandleType)
+                Dim oFileExists As Boolean = True
+
+                If oImportDate = DateTime.MinValue Then
+                    oFileExists = False
+                End If
+
+                CheckedListBoxControl1.Items.Add(New SplitFile With {
+                    .FileName = oFilename,
+                    .Exists = oFileExists
+                })
+            Next
+
+
 
             CheckedListBoxControl1.CheckAll()
 
@@ -22,6 +47,19 @@ Public Class frmIndexFileList
         End Try
     End Sub
 
+    Public Class SplitFile
+        Public FileName As String
+        Public Exists As Boolean
+
+        Public Overrides Function ToString() As String
+            If Exists Then
+                Return $"{FileName} (Achtung, existiert bereits!)"
+            Else
+                Return FileName
+            End If
+        End Function
+    End Class
+
     Private Sub btnstartIndex_Click(sender As Object, e As EventArgs) Handles btnstartIndex.Click
         Try
             LOGGER.Debug("Starting indexing of {0} files", CheckedListBoxControl1.Items.Count - CheckedListBoxControl1.CheckedItems.Count)