From 8c5927530d6fa4869ae38a116c708b54767d9b77 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 23 Aug 2021 14:29:10 +0200 Subject: [PATCH] Delete Email Tempfiles at successful indexing and at program end --- Global_Indexer/frmIndex.vb | 2 +- Global_Indexer/frmStart.vb | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index 60260b8..a1d9bb5 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -2740,7 +2740,7 @@ Public Class frmIndex MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success") End If - 'DTACTUAL_FILES.Clear() + EMAIL.Clear_TempFiles() DocumentViewer1.CloseDocument() DocumentViewer1.Done() diff --git a/Global_Indexer/frmStart.vb b/Global_Indexer/frmStart.vb index 5c6de5b..7197e34 100644 --- a/Global_Indexer/frmStart.vb +++ b/Global_Indexer/frmStart.vb @@ -254,6 +254,8 @@ Public Class frmStart MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try + EMAIL.Clear_TempFiles() + 'TempDateien löschen For Each oFile In TEMP_FILES Try