AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS2501

Browse Source
This commit is contained in:
SchreiberM
2017-01-25 10:16:40 +01:00
parent 042f24e231
commit 64c99f80b9
43 changed files with 5067 additions and 2448 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Global_Indexer/frmStart.vb
View File

@@ -222,14 +222,14 @@ Public Class frmStart
Sub Drag_Enter(sender As Object, e As DragEventArgs)
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.All
Console.WriteLine("DragEnter ...DragDrop")
' Console.WriteLine("DragEnter ...DragDrop")
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
'handle a message dragged from Outlook
e.Effect = DragDropEffects.Copy
Console.WriteLine("DragEnter ...OutlookMessage")
' Console.WriteLine("DragEnter ...OutlookMessage")
ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
e.Effect = DragDropEffects.Copy
Console.WriteLine("DragEnter ...Attachment from Outlook")
' Console.WriteLine("DragEnter ...Attachment from Outlook")
Else
'otherwise, do not handle
e.Effect = DragDropEffects.None
@@ -245,13 +245,13 @@ Public Class frmStart
For Each Str As Object In ClassDragDrop.files_dropped
If Not Str Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("@") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("@") + 1)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
Dim filename As String = Str.Substring(Str.LastIndexOf("|") + 1)
If ClassIndexFunctions.FileExistsinDropTable(filename) = False Then
ClassFilehandle.Decide_FileHandle(filename, handleType)
i += 1
Else
Console.WriteLine("File gibt es bereits")
' Console.WriteLine("File gibt es bereits")
End If
End If
@@ -324,14 +324,14 @@ Public Class frmStart
Dim filestring As String = Filerow.Item("FILENAME2WORK")
Dim handletype As String = Filerow.Item("HANDLE_TYPE")
If handletype = "@MSGONLY@" Or handletype = "@ATTMNTEXTRACTED@" Then
If handletype = "|MSGONLY|" Or handletype = "|ATTMNTEXTRACTED|" Then
Try
System.IO.File.Delete(filestring)
Catch ex As Exception
End Try
ElseIf handletype.StartsWith("@FW") Then
ElseIf handletype.StartsWith("|FW") Then
containsfw_file = True
End If
Next
@@ -609,7 +609,7 @@ Public Class frmStart
Try
If FW_started = True Then
'Prüfen ob alle Files abgearbeitet wurden
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%@FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
Dim sql = "SELECT * FROM TBGI_FILES_USER WHERE WORKED = 0 AND HANDLE_TYPE like '%|FW%' AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')"
DTACTUAL_FILES = ClassDatabase.Return_Datatable(sql, True)
If DTACTUAL_FILES.Rows.Count > 0 Then
ABORT_INDEXING = False
@@ -735,7 +735,7 @@ Public Class frmStart
For Each fName In openFileDialog1.FileNames
ReDim Preserve ClassDragDrop.files_dropped(i)
ClassLogger.Add(">> Chosen File: " & fName, False)
ClassDragDrop.files_dropped(i) = "@DROPFROMFSYSTEM@" & fName
ClassDragDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
i += 1
Next
TimerCheckDroppedFiles.Start()