Ms Änderungen FileCopy

EnvelopeGenerator.Form/Helper/TempFiles.vb

@@ -33,6 +33,7 @@ Public Class TempFiles
     Private Function CleanUpFiles() As Boolean
         Try
             For Each fileItem As String In Directory.GetFiles(TempPath)
+                Logger.Debug("Deleting tempPath-file: {0} ...", fileItem)
                 File.Delete(fileItem)
             Next
 
@@ -46,7 +47,8 @@ Public Class TempFiles
 
     Public Function CleanUp() As Boolean
         Try
-            Directory.Delete(TempPath)
+            Logger.Debug("Deleting tempPath-Data: {0} ...", TempPath)
+            Directory.Delete(TempPath, True)
             Return True
 
         Catch ex As Exception