39 lines
1.1 KiB
VB.net
39 lines
1.1 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class Helpers
|
|
Private LogConfig As LogConfig
|
|
Private Logger As Logger
|
|
|
|
Public Sub New(pLogConfig As LogConfig)
|
|
LogConfig = pLogConfig
|
|
Logger = pLogConfig.GetLogger()
|
|
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
|