MS Common Verzeichnisstruktur

EnvelopeGenerator.Form/frmEnvelopeEditor.vb

@@ -364,7 +364,7 @@ Partial Public Class frmEnvelopeEditor
                 ' Verschiebe die Datei
                 Try
                     Dim oFilePath As String = pSourcePath
-
+                    Dim oDirectory As String = Path.GetDirectoryName(oFilePath)
                     Dim split As String() = oFilePath.Split("\")
                     Dim parentFolder As String = split(split.Length - 2)
                     pDestinationPath &= "\" + parentFolder
@@ -376,6 +376,7 @@ Partial Public Class frmEnvelopeEditor
                         File.Delete(pDestinationPath)
                     End If
                     System.IO.File.Move(pSourcePath, pDestinationPath)
+                    System.IO.Directory.Delete(oDirectory)
                 Catch ex As Exception
                     MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in MoveFileWithNetUse")
                 End Try