Filesystem: Add CreateDateDirectory

2021-12-23 10:44:19 +01:00
parent b1af861810
commit 952468a69b
2 changed files with 8 additions and 2 deletions
--- 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