Delete Email Tempfiles at successful indexing and at program end
This commit is contained in:
parent
0c850a11fc
commit
8c5927530d
@ -2740,7 +2740,7 @@ Public Class frmIndex
|
|||||||
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
|
MsgBox("All files were successfully processed through Multiindexing", MsgBoxStyle.Information, "Success")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'DTACTUAL_FILES.Clear()
|
EMAIL.Clear_TempFiles()
|
||||||
|
|
||||||
DocumentViewer1.CloseDocument()
|
DocumentViewer1.CloseDocument()
|
||||||
DocumentViewer1.Done()
|
DocumentViewer1.Done()
|
||||||
|
|||||||
@ -254,6 +254,8 @@ Public Class frmStart
|
|||||||
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
MsgBox("Unexpected Error in Closing Application: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||||
End Try
|
End Try
|
||||||
|
|
||||||
|
EMAIL.Clear_TempFiles()
|
||||||
|
|
||||||
'TempDateien löschen
|
'TempDateien löschen
|
||||||
For Each oFile In TEMP_FILES
|
For Each oFile In TEMP_FILES
|
||||||
Try
|
Try
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user