MS Version 2.6.00 Removed CopytoDMZ

2024-04-15 14:08:47 +02:00
parent 83746abb1b
commit f51c500f90
6 changed files with 7 additions and 120 deletions
--- a/EnvelopeGenerator.Form/Controllers/BaseController.vb
+++ b/EnvelopeGenerator.Form/Controllers/BaseController.vb
@@ -145,7 +145,10 @@ Public MustInherit Class BaseController
                IO.File.Delete(pDocument.Filepath)
            End If
            Dim oFolder As String = Path.GetDirectoryName(pDocument.Filepath)
-            Directory.Delete(oFolder)
+            If Directory.Exists(oFolder) Then
+                Directory.Delete(oFolder)
+            End If
+

            Return True
        Catch ex As Exception