Ms Änderungen FileCopy

EnvelopeGenerator.Form/Controllers/BaseController.vb

@@ -4,6 +4,7 @@ Imports EnvelopeGenerator.Common
 Imports System.Data.SqlClient
 Imports DevExpress.DocumentView
 Imports System.Transactions
+Imports System.IO
 
 Public MustInherit Class BaseController
     Inherits BaseClass
@@ -143,6 +144,8 @@ Public MustInherit Class BaseController
             If IO.File.Exists(pDocument.Filepath) Then
                 IO.File.Delete(pDocument.Filepath)
             End If
+            Dim oFolder As String = Path.GetDirectoryName(pDocument.Filepath)
+            Directory.Delete(oFolder)
 
             Return True
         Catch ex As Exception