AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Filesystem: Add CreateDateDirectory

Browse Source
This commit is contained in:
Jonathan Jenne 2021-12-23 10:44:19 +01:00
parent b1af861810
commit 952468a69b
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules.Filesystem/File.vb
View File

@ -351,6 +351,12 @@ Public Class File
Public Function GetDateDirectory(pBaseDirectory As String) As String Public Function GetDateDirectory(pBaseDirectory As String) As String
Dim oDateDirectory = GetDateString() Dim oDateDirectory = GetDateString()
Dim oFinalDirectory As String = IO.Path.Combine(pBaseDirectory, oDateDirectory) 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 If IO.Directory.Exists(oFinalDirectory) = False Then
Try Try

4
Modules.Filesystem/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.0.0")> <Assembly: AssemblyVersion("1.2.1.0")>
<Assembly: AssemblyFileVersion("1.2.0.0")> <Assembly: AssemblyFileVersion("1.2.1.0")>