MS DeleteScans CheckScanFolder

Global_Indexer/frmIndex.vb

@@ -1753,6 +1753,7 @@ Public Class frmIndex
             CURRENT_ISATTACHMENT = False
             DropType = ClassDatabase.Execute_Scalar("SELECT HANDLE_TYPE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID, MyConnectionString, True)
             chkdelete_origin.Visible = False
+            CURRENT_DROPTYPE = DropType.Replace("|", "")
             If DropType = "|DROPFROMFSYSTEM|" Then
                 chkdelete_origin.Visible = True
                 chkdelete_origin.Checked = CURR_DELETE_ORIGIN
@@ -1794,6 +1795,7 @@ Public Class frmIndex
                     Me.Text = "Indexing of email-Attachment:"
                 End If
             ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
+
                 If USER_LANGUAGE = "de-DE" Then
                     Me.Text = "Indexierung einer Folderwatch-Datei:"
                 Else
@@ -2436,8 +2438,11 @@ Public Class frmIndex
     Sub DeleteFile()
         Try
             If CURR_DELETE_ORIGIN = False Then
-                If LogErrorsOnly = False Then ClassLogger.Add(">> DeleteFile - CURR_DELETE_ORIGIN = False", False)
-                Exit Sub
+                If CURRENT_DROPTYPE <> "FW_SIMPLEINDEXER" Then
+                    If LogErrorsOnly = False Then ClassLogger.Add(">> DeleteFile - CURR_DELETE_ORIGIN = False", False)
+                    Exit Sub
+                End If
+
             End If
             File.Delete(CURRENT_WORKFILE)
         Catch ex As Exception