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