MS Common V 1.5 New paths for email-Service

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -363,6 +363,14 @@ Partial Public Class frmEnvelopeEditor
             If process.ExitCode = 0 Then
                 ' Verschiebe die Datei
                 Try
+                    Dim oFilePath As String = pSourcePath
+
+                    Dim split As String() = oFilePath.Split("\")
+                    Dim parentFolder As String = split(split.Length - 2)
+                    pDestinationPath &= "\" + parentFolder
+                    If Not System.IO.Directory.Exists(pDestinationPath) Then
+                        System.IO.Directory.CreateDirectory(pDestinationPath)
+                    End If
                     pDestinationPath &= "\" + oFilename
                     If File.Exists(pDestinationPath) Then
                         File.Delete(pDestinationPath)