From 952468a69bbf848bb532dd63ce8d4ee575faecf6 Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 23 Dec 2021 10:44:19 +0100 Subject: [PATCH] Filesystem: Add CreateDateDirectory --- Modules.Filesystem/File.vb | 6 ++++++ Modules.Filesystem/My Project/AssemblyInfo.vb | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/Modules.Filesystem/File.vb b/Modules.Filesystem/File.vb index 3ab1fac6..7425e2d3 100644 --- a/Modules.Filesystem/File.vb +++ b/Modules.Filesystem/File.vb @@ -351,6 +351,12 @@ Public Class File Public Function GetDateDirectory(pBaseDirectory As String) As String Dim oDateDirectory = GetDateString() Dim oFinalDirectory As String = IO.Path.Combine(pBaseDirectory, oDateDirectory) + Return oFinalDirectory + End Function + + Public Function CreateDateDirectory(pBaseDirectory As String) As String + Dim oDateDirectory = GetDateString() + Dim oFinalDirectory As String = IO.Path.Combine(pBaseDirectory, oDateDirectory) If IO.Directory.Exists(oFinalDirectory) = False Then Try diff --git a/Modules.Filesystem/My Project/AssemblyInfo.vb b/Modules.Filesystem/My Project/AssemblyInfo.vb index 5bd0ce38..60210e63 100644 --- a/Modules.Filesystem/My Project/AssemblyInfo.vb +++ b/Modules.Filesystem/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + +