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:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.2.0.0")>
-<Assembly: AssemblyFileVersion("1.2.0.0")>
+<Assembly: AssemblyVersion("1.2.1.0")>
+<Assembly: AssemblyFileVersion("1.2.1.0")>