Imports System.Text Imports DigitalData.Modules.Logging Imports Microsoft.VisualStudio.TestTools.UnitTesting Imports DigitalData.Modules.EDMI Public Class PathTest Public Sub TestMethod1() Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp) Dim oTempPath = System.IO.Path.GetTempPath() Dim oPath As New DigitalData.Modules.EDMI.File.Path(oLogConfig, oTempPath) Dim oNow As DateTime = DateTime.Now Dim oYear = oNow.Year Dim oMonth = oNow.Month.ToString.PadLeft(2, "0") Dim oDay = oNow.Day.ToString.PadLeft(2, "0") Assert.AreEqual(oPath.GetActivePath("TestDocumentType"), $"{oTempPath}EDMI\Active\TestDocumentType\{oYear}\{oMonth}\{oDay}") Assert.AreEqual(oPath.GetArchivePath("TestDocumentType"), $"{oTempPath}EDMI\Archive\TestDocumentType\{oYear}\{oMonth}\{oDay}") End Sub End Class