From ac4da26fa70ef58b4f6f93ff773d2942366cb8b9 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 27 Jan 2021 15:54:08 +0100 Subject: [PATCH] Jobs/ZUGFeRD: Create subfolders per date for processed files --- Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb index 0ebc0d69..8909546c 100644 --- a/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb +++ b/Modules.Jobs/EDMI/ZUGFeRD/ImportZUGFeRDFiles.vb @@ -467,8 +467,8 @@ Public Class ImportZUGFeRDFiles IsSuccess As Boolean) Dim oFinalMoveDirectory As String = MoveDirectory - Dim oDateSubDirectoryName As String = Now.ToString("yyyy-MM-dd") - Dim oAttachmentDirectory As String = Path.Combine(MoveDirectory, Args.AttachmentsSubDirectory, oDateSubDirectoryName) + Dim oDateSubDirectoryName As String = Now.ToString("yyyy\\MM\\dd") + Dim oAttachmentDirectory As String = Path.Combine(oFinalMoveDirectory, Args.AttachmentsSubDirectory, oDateSubDirectoryName) ' Files will be moved to a subfolder for the current day if they are rejected If Not IsSuccess Then