diff --git a/Global_Indexer/frmConfig_Basic.resx b/Global_Indexer/frmConfig_Basic.resx index feb52ca..578ddbd 100644 --- a/Global_Indexer/frmConfig_Basic.resx +++ b/Global_Indexer/frmConfig_Basic.resx @@ -912,7 +912,7 @@ ausgenommen werden sollen: 3 - Ordner 'SimpleIndexer' in Eigenen Dateien erzeugen + Ordner 'GlobalIndexer' in Eigenen Dateien erzeugen btnFW_OwnFiles @@ -936,7 +936,7 @@ ausgenommen werden sollen: 2 - Ordner 'SimpleIndexer' auf Desktop erzeugen + Ordner 'GlobalIndexer' auf Desktop erzeugen btnFW_Desktop diff --git a/Global_Indexer/frmConfig_Basic.vb b/Global_Indexer/frmConfig_Basic.vb index f314361..8d010ea 100644 --- a/Global_Indexer/frmConfig_Basic.vb +++ b/Global_Indexer/frmConfig_Basic.vb @@ -224,7 +224,7 @@ Public Class frmConfig_Basic End Sub Private Sub btnFW_Desktop_Click(sender As Object, e As EventArgs) Handles btnFW_Desktop.Click - CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "SimpleIndexer") + CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "GlobalIndexer") CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT") End Sub Sub CheckFolder(mypath As String, FOLDER_TYPE As String) @@ -293,7 +293,7 @@ Public Class frmConfig_Basic End Sub Private Sub btnFW_OwnFiles_Click(sender As Object, e As EventArgs) Handles btnFW_OwnFiles.Click - CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "SimpleIndexer") + CURRENT_FOLDERWATCH = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), "GlobalIndexer") CheckFolder(CURRENT_FOLDERWATCH, "DEFAULT") End Sub diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 083b903..1e00fbd 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -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