Export report to Directory

MultiTool.Shared/Helpers.vb

@@ -1,2 +1,36 @@
-Friend Class Helpers
+Imports DigitalData.Modules.Logging
+
+Public Class Helpers
+    Inherits BaseClass
+
+    Public Sub New(pLogConfig As LogConfig)
+        MyBase.New(pLogConfig)
+    End Sub
+
+    Public Function GetDateDirectory(pBaseDirectory As String)
+        Dim oDateDirectory = GetDateString()
+        Dim oFinalDirectory As String = IO.Path.Combine(pBaseDirectory, oDateDirectory)
+
+        If IO.Directory.Exists(oFinalDirectory) = False Then
+            Try
+                IO.Directory.CreateDirectory(oFinalDirectory)
+            Catch ex As Exception
+                Logger.Error(ex)
+            End Try
+        End If
+
+        Return oFinalDirectory
+    End Function
+
+    Public Function GetDateString() As String
+        Return $"{Now:yyyy\\MM\\dd}"
+    End Function
+
+    Public Function GetDateTimeString() As String
+        Return $"{Now:yyyy-MM-dd_hh-mm-ffff}"
+    End Function
+
+    Public Function GetFilenameWithSuffix(pBaseString As String, pSuffix As String, pExtension As String)
+        Return $"{pBaseString}-{pSuffix}.{pExtension}"
+    End Function
 End Class