This commit is contained in:
Developer 02
2024-03-14 12:47:35 +01:00
2 changed files with 14 additions and 6 deletions

View File

@@ -128,14 +128,22 @@ Public MustInherit Class BaseController
End Function
Public Function DeleteDocumentsFromDisk(pEnvelope As Envelope) As Boolean
Return pEnvelope.Documents.
Select(Function(d) DeleteDocumentFromDisk(d)).
All(Function(r) r = True)
If Not IsNothing(pEnvelope.Documents) Then
Return pEnvelope.Documents.
Select(Function(d) DeleteDocumentFromDisk(d)).
All(Function(r) r = True)
Else
Return True
End If
End Function
Public Function DeleteDocumentFromDisk(pDocument As EnvelopeDocument) As Boolean
Try
IO.File.Delete(pDocument.Filepath)
If IO.File.Exists(pDocument.Filepath) Then
IO.File.Delete(pDocument.Filepath)
End If
Return True
Catch ex As Exception
Logger.Error(ex)

View File

@@ -369,11 +369,11 @@ Partial Public Class frmEnvelopeEditor
End If
System.IO.File.Move(pSourcePath, pDestinationPath)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in FileMove")
MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in MoveFileWithNetUse")
End Try
Else
MsgBox("Fehler beim Verbinden mit dem Netzwerkziel.", MsgBoxStyle.Critical)
MsgBox("Error while connecting to network: " & pDestinationPath, MsgBoxStyle.Critical, "Unexpected error in MoveFileWithNetUse")
End If
End Using
End Sub