MS

GUIs.ZooFlow/Modules/Globix/ClassFolderwatcher.vb

@@ -169,10 +169,8 @@ Public Class ClassFolderwatcher
             'Die Datei übergeben
             Logger.Info(">> OnCreated-File:" & e.FullPath)
 
-            If FileHandle.CheckDuplicateFiles(e.FullPath, "FolderWatch/Scan") Then
-                FileHandle.Decide_FileHandle(e.FullPath, handleType)
-            Else
-                Logger.Info(">> Folderwatcher: File already exists:" & e.FullPath)
+            If FileHandle.Decide_FileHandle(e.FullPath, handleType) = True Then
+                My.Application.Globix.NEW_FILES = True
             End If
 
         Catch ex As Exception

GUIs.ZooFlow/Modules/Globix/ClassUserFiles.vb

@@ -51,7 +51,7 @@ Public Class ClassUserFiles
                 oHash = ""
             End Try
 
-            oSQL = "SELECT *  FROM TBGI_FILES_USER WHERE FILE_HASH = '" & oHash & "' AND WORKED = 0 ORDER BY ADDED_WHEN"
+            oSQL = "SELECT * FROM TBGI_FILES_USER WHERE FILE_HASH = '" & oHash & "' AND WORKED = 0 ORDER BY ADDED_WHEN"
             Dim oResult As DataTable = My.DatabaseECM.GetDatatable(oSQL)
 
             If oResult Is Nothing Then

GUIs.ZooFlow/Modules/Globix/State.vb

@@ -10,6 +10,7 @@ Namespace Globix
         Public Property CURRENT_SCAN_FOLDERWATCH As String
         Public Property CurrentWorkfile As Models.WorkFile
         Public Property INDEXING_ACTIVE As Boolean = False
+        Public Property NEW_FILES As Boolean = False
         Public Property ABORT_INDEXING As Boolean = False
         Public Property CURRENT_ISATTACHMENT As Boolean = False
         Public Property DeleteOriginalFile As Boolean = False