MS18042016

Global_Indexer/frmStart.vb

@@ -147,6 +147,17 @@ Public Class frmStart
     End Sub
 
     Private Sub frmMain_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
+        DragDropForm(e)
+    End Sub
+    Sub DragDropForm(e As DragEventArgs)
+        Dim frmCollection = System.Windows.Forms.Application.OpenForms
+        If frmCollection.OfType(Of frmIndexFileList).Any Then
+            MsgBox("Please index the active file/mail first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
+            ' TimerCheckDroppedFiles.Start()
+            Exit Sub
+        End If
+        'Erstmal alles löschen
+        ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
         If ClassDragDrop.Drop_File(e) = True Then
             TimerCheckDroppedFiles.Start()
         End If
@@ -696,9 +707,7 @@ Public Class frmStart
         Check_Dropped_Files()
     End Sub
     Private Sub LabelControl1_DragDrop(sender As Object, e As DragEventArgs) Handles LabelControl1.DragDrop, btnChoosefiles.DragDrop
-        If ClassDragDrop.Drop_File(e) = True Then
-            TimerCheckDroppedFiles.Start()
-        End If
+        DragDropForm(e)
     End Sub
 
     Private Sub LabelControl1_DragEnter(sender As Object, e As DragEventArgs) Handles LabelControl1.DragEnter, btnChoosefiles.DragEnter