This commit is contained in:
Digital Data - Marlon Schreiber
2017-08-14 10:18:04 +02:00
parent 828ee2a37f
commit 4928d841fa
6 changed files with 851 additions and 504 deletions

View File

@@ -2351,7 +2351,10 @@ Public Class frmIndex
End Function
Sub DeleteFile()
Try
If CURR_DELETE_ORIGIN = False Then Exit Sub
If CURR_DELETE_ORIGIN = False Then
If LogErrorsOnly = False Then ClassLogger.Add(">> DeleteFile - CURR_DELETE_ORIGIN = False", False)
Exit Sub
End If
File.Delete(CURRENT_WORKFILE)
Catch ex As Exception
MsgBox("Unexpeted Error in Delete Current Workfile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)