Restructure Base

Base/Base/BaseClass.vb

@@ -0,0 +1,16 @@
+Imports DigitalData.Modules.Logging
+
+''' <summary>
+''' BaseClass that sets up a Logger.
+''' </summary>
+Public Class BaseClass
+    Protected LogConfig As LogConfig
+    Protected Logger As Logger
+
+    Public Sub New(LogConfig As LogConfig)
+        Dim oClassName = Me.GetType().Name
+
+        Me.LogConfig = LogConfig
+        Me.Logger = LogConfig.GetLogger(oClassName)
+    End Sub
+End Class

Base/Base/BaseUtils.vb

@@ -0,0 +1,7 @@
+Friend Class BaseUtils
+    Friend Shared Function FormatHash(pChecksum)
+        Return BitConverter.
+            ToString(pChecksum).
+            Replace("-", String.Empty)
+    End Function
+End Class