37 lines
1.0 KiB
VB.net
37 lines
1.0 KiB
VB.net
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
|