42 lines
1.3 KiB
VB.net
42 lines
1.3 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
Imports System.IO
|
|
|
|
Public Class Path
|
|
Private ReadOnly _LogConfig As LogConfig
|
|
Private ReadOnly _Logger As Logger
|
|
|
|
Public Const BASE_PATH_ACTIVE As String = "Active"
|
|
Public Const BASE_PATH_ARCHIVE As String = "Archive"
|
|
Public Const BASE_PATH_EDMI As String = "EDMI"
|
|
|
|
Public Sub New(LogConfig As LogConfig)
|
|
_LogConfig = LogConfig
|
|
_Logger = LogConfig.GetLogger()
|
|
End Sub
|
|
|
|
Public Function GetActivePath(DocumentType As String)
|
|
Dim oPathParts As New List(Of String) From {BASE_PATH_EDMI, BASE_PATH_ACTIVE, DocumentType}
|
|
oPathParts.AddRange(GetDatePath())
|
|
|
|
Return IO.Path.Combine(oPathParts.ToArray())
|
|
End Function
|
|
|
|
Public Function GetArchivePath(DocumentType As String)
|
|
Dim oPathParts As New List(Of String) From {BASE_PATH_EDMI, BASE_PATH_ARCHIVE, DocumentType}
|
|
oPathParts.AddRange(GetDatePath())
|
|
|
|
Return IO.Path.Combine(oPathParts.ToArray())
|
|
End Function
|
|
|
|
Private Function GetDatePath() As List(Of String)
|
|
Dim oDate = DateTime.Now
|
|
Dim oResultList As New List(Of String) From {
|
|
oDate.Year,
|
|
oDate.Month.ToString.PadLeft(2, "0"),
|
|
oDate.Day.ToString.PadLeft(2, "0")
|
|
}
|
|
|
|
Return oResultList
|
|
End Function
|
|
End Class
|