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

rename default folder watch folder to GlobalIndexer, fix folder watch not working after first indexing

Browse Source
This commit is contained in:
Jonathan Jenne
2020-06-08 13:47:32 +02:00
parent cc3ceed9e3
commit 0a1717220f
3 changed files with 7 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Global_Indexer/frmIndex.vb
View File

@@ -1372,6 +1372,8 @@ Public Class frmIndex
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Schliessen des Formulares:")
End Try
End Select
Else
INDEXING_ACTIVE = False
End If
End Sub
Private Sub frmIndex_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -1949,30 +1951,6 @@ Public Class frmIndex
'Die Datei verschieben
If Move_File2_Target() = True Then
_Logger.Debug(" ...Move_File2_Target durchlaufen")
''Die Originaldatei löschen
'If DropType = "|DROPFROMFSYSTEM|" Then
' If CURR_DELETE_ORIGIN = True Then
' 'Die temporäre Datei löschen
' DeleteFile()
' End If
'ElseIf DropType = "|ATTMNTEXTRACTED|" Or DropType = "|OUTLOOK_ATTACHMENT|" Then
' 'Die temporäre Datei löschen
' If CURRENT_WORKFILE.EndsWith("pdf") Then
' DocumentViewer1.Done()
' DocumentViewer1.CloseDocument()
' End If
' DeleteFile()
'ElseIf (DropType = "|OUTLOOK_MESSAGE|" Or DropType = "|FW_MSGONLY|" Or DropType = "|MSGONLY|") Then
' 'Die temporäre Datei löschen
' DeleteFile()
'ElseIf DropType = "|FW_SIMPLEINDEXER|" Then
' 'Die temporäre Datei löschen
' DeleteFile()
'End If
CURRENT_LASTDOKART = cmbDokumentart.Text
_Logger.Info("Datei '" & CURRENT_NEWFILENAME & "' erfolgreich erzeugt.")
Dim oDEL As String = "DELETE FROM TBGI_FILES_USER WHERE GUID = " & CURRENT_WORKFILE_GUID
@@ -2038,14 +2016,7 @@ Public Class frmIndex
CURRENT_WORKFILE_GUID = filerow.Item("GUID")
CURRENT_WORKFILE = filerow.Item("FILENAME2WORK")
DropType = filerow.Item("HANDLE_TYPE")
'Dim HandleType As String = filerow.Item("HANDLE_TYPE")
'If HandleType = "|DROPFROMFSYSTEM|" Then
' DropType = "dragdrop file"
'ElseIf HandleType = "|OUTLOOK_ATTMNT|" Then
' DropType = "dragdrop attachment"
'ElseIf HandleType = "|OUTLOOKMESSAGE|" Then
' DropType = "dragdrop message"
'End If
If WORK_FILE() = False Then
err = True
Exit For
@@ -2059,7 +2030,6 @@ Public Class frmIndex
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
End If
'DTACTUAL_FILES.Clear()
Me.Close()
End If
End If