Fix filesystem refs

Base.Test/.vb

@@ -0,0 +1,12 @@
+Imports Microsoft.VisualStudio.TestTools.UnitTesting
+
+Namespace Base.Test
+    <TestClass>
+    Public Class UnitTest1
+        <TestMethod>
+        Sub TestSub()
+
+        End Sub
+    End Class
+End Namespace
+

Base.Test/Base.Test.vbproj

@@ -0,0 +1,19 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <RootNamespace>Base.Test</RootNamespace>
+    <TargetFramework>net6.0</TargetFramework>
+
+    <IsPackable>false</IsPackable>
+    <IsTestProject>true</IsTestProject>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <PackageReference Include="FluentAssertions" Version="6.12.0" />
+    <PackageReference Include="Microsoft.NET.Test.Sdk" Version="17.3.2" />
+    <PackageReference Include="MSTest.TestAdapter" Version="2.2.10" />
+    <PackageReference Include="MSTest.TestFramework" Version="2.2.10" />
+    <PackageReference Include="coverlet.collector" Version="3.1.2" />
+  </ItemGroup>
+
+</Project>

Base/Base.vbproj

@@ -83,6 +83,10 @@
     <Compile Include="Encryption\Encryption.vb" />
     <Compile Include="Encryption\EncryptionLegacy.vb" />
     <Compile Include="DatabaseEx.vb" />
+    <Compile Include="FilesystemEx.vb" />
+    <Compile Include="FileWatcher\FileWatcher.vb" />
+    <Compile Include="FileWatcher\FileWatcherFilters.vb" />
+    <Compile Include="FileWatcher\FileWatcherProperties.vb" />
     <Compile Include="MimeEx.vb" />
     <Compile Include="WindowsEx.vb" />
     <Compile Include="ModuleExtensions.vb" />
@@ -139,8 +143,6 @@
       <Name>Logging</Name>
     </ProjectReference>
   </ItemGroup>
-  <ItemGroup>
+  <ItemGroup />
-    <Folder Include="Static\" />
-  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
 </Project>

Base/FileWatcher/FileWatcher.vb

@@ -1,6 +1,5 @@
 Imports System.IO
-Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Base.FileWatcherFilters
-Imports DigitalData.Modules.Filesystem.FileWatcherFilters
 Imports DigitalData.Modules.Logging
 
 

Base/FilesystemEx.vb

@@ -1,29 +1,10 @@
-Imports System.IO
+Imports DigitalData.Modules.Logging
+Imports System.IO
 Imports System.Security.Cryptography
 Imports System.Text
 Imports System.Text.RegularExpressions
-Imports DigitalData.Modules.Logging
 
-''' <module>File</module>
+Public Class FilesystemEx
-''' <version>0.0.0.1</version>
-''' <date>11.10.2018</date>
-''' <summary>
-''' Module that provides variouse File operations
-''' </summary>
-''' <dependencies>
-''' NLog, >= 4.5.8
-''' </dependencies>
-''' <params>
-''' LogConfig, DigitalData.Module.Logging.LogConfig
-'''     A LogConfig object               
-''' </params>
-''' <props>
-''' </props>
-''' <example>
-''' </example>
-''' <remarks>
-''' </remarks>
-Public Class File
     Private ReadOnly _Logger As Logger
     Private ReadOnly _LogConfig As LogConfig
 
@@ -316,7 +297,7 @@ Public Class File
     ''' <param name="DestDirName"></param>
     ''' <param name="CopySubDirs"></param>
     Public Sub CopyDirectory(ByVal SourceDirName As String, ByVal DestDirName As String, ByVal CopySubDirs As Boolean)
-        Dim oDirectory As DirectoryInfo = New DirectoryInfo(SourceDirName)
+        Dim oDirectory As New DirectoryInfo(SourceDirName)
 
         If Not oDirectory.Exists Then
             Throw New DirectoryNotFoundException("Source directory does not exist or could not be found: " & SourceDirName)
@@ -511,5 +492,4 @@ Public Class File
     Public Function GetFilenameWithPrefix(pBaseString As String, pPrefix As String, pExtension As String)
         Return $"{pPrefix}-{pBaseString}.{pExtension}"
     End Function
-
 End Class

Config/Config.vbproj

@@ -44,6 +44,9 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="DigitalData.Modules.Base">
+      <HintPath>..\Base\bin\Debug\DigitalData.Modules.Base.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.CSharp" />
     <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
       <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
@@ -120,10 +123,6 @@
       <Project>{8a8f20fc-c46e-41ac-bee7-218366cfff99}</Project>
       <Name>Encryption</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
-      <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
-      <Name>Filesystem</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Logging\Logging.vbproj">
       <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
       <Name>Logging</Name>

Config/ConfigManager.vb

@@ -2,8 +2,8 @@
 Imports System.Reflection
 Imports System.Xml.Serialization
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Encryption
 Imports DigitalData.Modules.Config.ConfigAttributes
+Imports DigitalData.Modules.Base
 
 Public Class ConfigManager(Of T)
     Private Const USER_CONFIG_NAME As String = "UserConfig.xml"
@@ -12,7 +12,7 @@ Public Class ConfigManager(Of T)
 
     Private ReadOnly _LogConfig As LogConfig
     Private ReadOnly _Logger As Logger
-    Private ReadOnly _File As Filesystem.File
+    Private ReadOnly _File As FilesystemEx
 
     Private ReadOnly _UserDirectory As String
     Private ReadOnly _UserConfigPath As String
@@ -104,7 +104,7 @@ Public Class ConfigManager(Of T)
     Public Sub New(LogConfig As LogConfig, UserConfigPath As String, ComputerConfigPath As String, Optional ApplicationStartupPath As String = "", Optional ForceUserConfig As Boolean = False)
         _LogConfig = LogConfig
         _Logger = LogConfig.GetLogger()
-        _File = New Filesystem.File(_LogConfig)
+        _File = New FilesystemEx(_LogConfig)
 
         _Blueprint = Activator.CreateInstance(Of T)
         _BlueprintType = _Blueprint.GetType
@@ -122,7 +122,7 @@ Public Class ConfigManager(Of T)
             _ComputerConfigPath = Path.Combine(_ComputerDirectory, COMPUTER_CONFIG_NAME)
         End If
 
-            If ApplicationStartupPath <> String.Empty Then
+        If ApplicationStartupPath <> String.Empty Then
             _AppConfigPath = Path.Combine(ApplicationStartupPath, APP_CONFIG_NAME)
 
         End If

Config/ConfigUtils.vb

@@ -1,15 +1,16 @@
-Imports DigitalData.Modules.Logging
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.Logging
 
 Public Class ConfigUtils
     Private _Logger As Logger
-    Private _File As Filesystem.File
+    Private _File As FilesystemEx
 
     Private Const MIGRATE_DIRECTORY As String = "Migrate"
 
 
     Public Sub New(LogConfig As LogConfig)
         _Logger = LogConfig.GetLogger()
-        _File = New Filesystem.File(LogConfig)
+        _File = New FilesystemEx(LogConfig)
     End Sub
 
     Public Function TestMigrationNeeded(TargetDirectory As String) As Boolean

EDMIAPI/EDMI.API.vbproj

@@ -308,10 +308,6 @@
       <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
       <Name>Database</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
-      <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
-      <Name>Filesystem</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Language\Language.vbproj">
       <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
       <Name>Language</Name>

EDMIAPI/Helpers.vb

@@ -1,16 +1,17 @@
-Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Logging
 
 
 Public Class Helpers
     Private ReadOnly LogConfig As LogConfig
     Private ReadOnly Logger As Logger
-    Private ReadOnly FileEx As Filesystem.File
+    Private ReadOnly FileEx As FilesystemEx
 
     Public Sub New(pLogConfig As LogConfig)
         LogConfig = pLogConfig
         Logger = pLogConfig.GetLogger()
-        FileEx = New Filesystem.File(pLogConfig)
+        FileEx = New FilesystemEx(pLogConfig)
     End Sub
 
     Public Function GetFileProperties(pFilePath As String, pDateImportedAt As Date) As FileProperties

EDMIAPI/Modules/BaseMethod.vb

@@ -1,4 +1,5 @@
-Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
+Imports DigitalData.Modules.Base
+Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Logging
 
 Namespace Modules
@@ -6,14 +7,14 @@ Namespace Modules
         Friend ReadOnly LogConfig As LogConfig
         Friend ReadOnly Logger As Logger
         Friend ReadOnly Channel As IEDMIServiceChannel
-        Friend ReadOnly FileEx As Filesystem.File
+        Friend ReadOnly FileEx As FilesystemEx
         Friend ReadOnly Helpers As Helpers
 
         Public Sub New(pLogConfig As LogConfig, pChannel As IEDMIServiceChannel)
             LogConfig = pLogConfig
             Logger = pLogConfig.GetLogger()
             Channel = pChannel
-            FileEx = New Filesystem.File(pLogConfig)
+            FileEx = New FilesystemEx(pLogConfig)
             Helpers = New Helpers(pLogConfig)
         End Sub
     End Class

EDMIAPI/Modules/IDB/NewFile.vb

@@ -1,6 +1,5 @@
 Imports DigitalData.Modules.EDMI.API.EDMIServiceReference
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Filesystem
 
 Namespace Modules.IDB
     Public Class NewFile

Filesystem/FileContainer/DocumentObject.vb

@@ -1,18 +0,0 @@
-Imports System.Runtime.Serialization
-
-<Serializable>
-Public Class DocumentObject
-
-    <DataMember(Name:="FileName")>
-    Public ReadOnly FileName As String
-    <DataMember(Name:="ContainerId")>
-    Public ReadOnly ContainerId As String
-    <DataMember(Name:="DocumentId")>
-    Public ReadOnly DocumentId As Int64
-
-    Public Sub New(ContainerId As String, DocumentId As Int64, FileName As String)
-        Me.ContainerId = ContainerId
-        Me.DocumentId = DocumentId
-        Me.FileName = FileName
-    End Sub
-End Class

Filesystem/FileContainer/FileContainer.vb

@@ -1,193 +0,0 @@
-Imports System.IO
-Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Encryption
-Imports ProtoBuf
-
-''' <module>FileContainer</module>
-''' <version>0.0.0.2</version>
-''' <date>21.11.2018</date>
-''' <summary>
-''' File Container for securely saving files
-''' </summary>
-''' <dependencies>
-''' NLog, >= 4.5.8
-''' </dependencies>
-''' <params>
-''' LogConfig, DigitalData.Module.Logging.LogConfig
-'''     A LogConfig object
-''' Password, String
-'''     The Password to Encrypt
-''' Path, String
-'''     The Path to save/load the container
-''' </params>
-''' <example>
-''' dim oContainer = Container.Create(logConfig, "pass", "E:\some.container")
-''' dim oContainer = Container.Load(logConfig, "pass", "E:\some.container")
-''' 
-''' dim oContainer = new Container(logConfig, "pass", "E:\some.container")
-''' oContainer.Save()
-''' 
-''' dim oContainer = new Container(logConfig, "pass", "E:\some.container")
-''' oContainer.Contents = oSomeData
-''' oContainer.Save()
-''' 
-''' dim oContainer = new Container(logConfig, "pass", "E:\some.container")
-''' oContainer.Load()
-''' dim oContents = oContainer.Contents
-''' 
-''' dim oContainer = new Container(logConfig, "pass", "E:\some.container")
-''' oContainer.Load()
-''' oContainer.Contents = oSomeOtherData
-''' oContainer.Save()
-''' oContainer.SaveAs("E:\some2.container")
-''' </example>
-Public Class FileContainer
-    Private _crypto As Encryption.Encryption
-    Private _compression As Compression
-    Private _inner As FileContainerInner
-    Private _logger As Logger
-    Private _logConfig As LogConfig
-    Private _path As String
-
-    Public Property Contents As Byte()
-        Get
-            Return _inner.Contents
-        End Get
-        Set(value As Byte())
-            _inner.Contents = value
-        End Set
-    End Property
-    Public ReadOnly Property ContainerId As String
-        Get
-            Return _inner.FileId
-        End Get
-    End Property
-    Public ReadOnly Property CreatedAt As String
-        Get
-            Return _inner.CreatedAt
-        End Get
-    End Property
-    Public ReadOnly Property UpdatedAt As String
-        Get
-            Return _inner.UpdatedAt
-        End Get
-    End Property
-
-    Public Shared Function Create(LogConfig As LogConfig, Password As String) As FileContainer
-        Dim oContainer = New FileContainer(LogConfig, Password)
-        Return oContainer
-    End Function
-
-    Public Shared Function Load(LogConfig As LogConfig, Password As String, Path As String) As FileContainer
-        Dim oContainer = New FileContainer(LogConfig, Password, Path)
-        oContainer.Load()
-        Return oContainer
-    End Function
-
-    Public Sub New(LogConfig As LogConfig, Password As String)
-        _logger = LogConfig.GetLogger()
-        _crypto = New Encryption.Encryption(LogConfig, Password)
-        _compression = New Compression(LogConfig)
-        _inner = New FileContainerInner()
-    End Sub
-
-    Public Sub New(LogConfig As LogConfig, Password As String, Path As String)
-        MyClass.New(LogConfig, Password)
-        _path = Path
-    End Sub
-
-    Public Sub SetFile(Contents As Byte(), FileName As String)
-        _inner.Contents = Contents
-        _inner.UpdatedAt = Date.Now
-        _inner.FileName = FileName
-    End Sub
-
-    Public Function GetFile() As FileContainerInner
-        Return _inner
-    End Function
-
-    Public Sub Save()
-        If IsNothing(_path) Then
-            Throw New ArgumentException("Path not set")
-        End If
-
-        SaveAs(_path)
-    End Sub
-
-    Public Sub SaveAs(Path As String)
-        Try
-            WriteBytesToFile(TransformToBytes(_inner), Path)
-        Catch ex As Exception
-            _logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Public Sub Load()
-        If IsNothing(_path) Then
-            Throw New ArgumentException("Path not set")
-        End If
-
-        LoadFrom(_path)
-    End Sub
-
-    Public Sub LoadFrom(Path As String)
-        Try
-            _inner = TransformToObject(ReadBytesFromFile(_path))
-        Catch ex As Exception
-            _logger.Error(ex)
-            Throw ex
-        End Try
-    End Sub
-
-    Private Function TransformToBytes([Object] As FileContainerInner) As Byte()
-        Dim oBytes = Serialize([Object])
-        Dim oCompressed = _compression.Compress(oBytes)
-        Dim oEncrypted = _crypto.Encrypt(oCompressed)
-        Return oEncrypted
-    End Function
-
-    Private Function TransformToObject(Bytes As Byte()) As FileContainerInner
-        Dim oDecrypted = _crypto.Decrypt(Bytes)
-        Dim oDecompressed = _compression.Decompress(oDecrypted)
-        Dim oObject = Deserialize(oDecompressed)
-        Return oObject
-    End Function
-
-    Private Function Serialize(InnerData As FileContainerInner) As Byte()
-        Dim oBinaryData As Byte()
-
-        Using oStream As New MemoryStream
-            Serializer.Serialize(oStream, InnerData)
-            oBinaryData = oStream.ToArray()
-        End Using
-
-        Return oBinaryData
-    End Function
-
-    Private Function Deserialize(InnerData As Byte()) As FileContainerInner
-        Dim oObject As FileContainerInner
-
-        Using oStream As New MemoryStream(InnerData)
-            oObject = Serializer.Deserialize(Of FileContainerInner)(oStream)
-        End Using
-
-        Return oObject
-    End Function
-
-    Private Sub WriteBytesToFile(Data As Byte(), FilePath As String)
-        Using oSourceStream As New FileStream(FilePath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
-            oSourceStream.Write(Data, 0, Data.Length)
-            oSourceStream.Flush()
-        End Using
-    End Sub
-
-    Private Function ReadBytesFromFile(FilePath As String) As Byte()
-        Using oFileStream = New FileStream(FilePath, FileMode.Open, FileAccess.Read, FileShare.Read, 4096)
-            Dim oBuffer As Byte() = New Byte(oFileStream.Length - 1) {}
-            oFileStream.Read(oBuffer, 0, oFileStream.Length)
-            oFileStream.Close()
-            Return oBuffer
-        End Using
-    End Function
-End Class

Filesystem/FileContainer/FileContainerInner.vb

@@ -1,23 +0,0 @@
-Imports ProtoBuf
-
-<Serializable>
-<ProtoContract>
-Public Class FileContainerInner
-    <ProtoMember(1)>
-    Public FileId As String
-    <ProtoMember(2)>
-    Public Contents As Byte()
-    <ProtoMember(3)>
-    Public CreatedAt As DateTime
-    <ProtoMember(4)>
-    Public UpdatedAt As DateTime
-    <ProtoMember(5)>
-    Public FileName As String
-
-    Public Sub New()
-        FileId = Guid.NewGuid().ToString
-        CreatedAt = Date.Now
-        UpdatedAt = Date.Now
-    End Sub
-
-End Class

Filesystem/Filesystem.vbproj

@@ -1,134 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
-  <PropertyGroup>
-    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-    <ProjectGuid>{991D0231-4623-496D-8BD0-9CA906029CBC}</ProjectGuid>
-    <OutputType>Library</OutputType>
-    <RootNamespace>DigitalData.Modules.Filesystem</RootNamespace>
-    <AssemblyName>DigitalData.Modules.Filesystem</AssemblyName>
-    <FileAlignment>512</FileAlignment>
-    <MyType>Windows</MyType>
-    <TargetFrameworkVersion>v4.6.2</TargetFrameworkVersion>
-    <TargetFrameworkProfile />
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-    <DebugSymbols>true</DebugSymbols>
-    <DebugType>full</DebugType>
-    <DefineDebug>true</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <OutputPath>bin\Debug\</OutputPath>
-    <DocumentationFile>DigitalData.Modules.Filesystem.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-    <DebugType>pdbonly</DebugType>
-    <DefineDebug>false</DefineDebug>
-    <DefineTrace>true</DefineTrace>
-    <Optimize>true</Optimize>
-    <OutputPath>bin\Release\</OutputPath>
-    <DocumentationFile>DigitalData.Modules.Filesystem.xml</DocumentationFile>
-    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionCompare>Binary</OptionCompare>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionStrict>Off</OptionStrict>
-  </PropertyGroup>
-  <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
-  </PropertyGroup>
-  <ItemGroup>
-    <Reference Include="Microsoft.CSharp" />
-    <Reference Include="NLog, Version=5.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
-      <HintPath>..\packages\NLog.5.0.5\lib\net46\NLog.dll</HintPath>
-    </Reference>
-    <Reference Include="protobuf-net, Version=2.4.0.0, Culture=neutral, PublicKeyToken=257b51d87d2e4d67, processorArchitecture=MSIL">
-      <HintPath>..\packages\protobuf-net.2.4.0\lib\net40\protobuf-net.dll</HintPath>
-    </Reference>
-    <Reference Include="System" />
-    <Reference Include="System.Configuration" />
-    <Reference Include="System.Data" />
-    <Reference Include="System.IO.Compression" />
-    <Reference Include="System.Runtime.Serialization" />
-    <Reference Include="System.ServiceModel" />
-    <Reference Include="System.Transactions" />
-    <Reference Include="System.Xml" />
-    <Reference Include="System.Core" />
-    <Reference Include="System.Xml.Linq" />
-    <Reference Include="System.Data.DataSetExtensions" />
-    <Reference Include="System.Net.Http" />
-  </ItemGroup>
-  <ItemGroup>
-    <Import Include="Microsoft.VisualBasic" />
-    <Import Include="System" />
-    <Import Include="System.Collections" />
-    <Import Include="System.Collections.Generic" />
-    <Import Include="System.Data" />
-    <Import Include="System.Diagnostics" />
-    <Import Include="System.Linq" />
-    <Import Include="System.Xml.Linq" />
-    <Import Include="System.Threading.Tasks" />
-  </ItemGroup>
-  <ItemGroup>
-    <Compile Include="FileContainer\DocumentObject.vb" />
-    <Compile Include="FileContainer\FileContainer.vb" />
-    <Compile Include="File.vb" />
-    <Compile Include="FileContainer\FileContainerInner.vb" />
-    <Compile Include="FileWatcher\FileWatcher.vb" />
-    <Compile Include="FileWatcher\FileWatcherFilters.vb" />
-    <Compile Include="FileWatcher\FileWatcherProperties.vb" />
-    <Compile Include="My Project\AssemblyInfo.vb" />
-    <Compile Include="My Project\Application.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Application.myapp</DependentUpon>
-      <DesignTime>True</DesignTime>
-    </Compile>
-    <Compile Include="My Project\Resources.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DesignTime>True</DesignTime>
-      <DependentUpon>Resources.resx</DependentUpon>
-    </Compile>
-    <Compile Include="My Project\Settings.Designer.vb">
-      <AutoGen>True</AutoGen>
-      <DependentUpon>Settings.settings</DependentUpon>
-      <DesignTimeSharedInput>True</DesignTimeSharedInput>
-    </Compile>
-  </ItemGroup>
-  <ItemGroup>
-    <EmbeddedResource Include="My Project\Resources.resx">
-      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
-      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
-      <CustomToolNamespace>My.Resources</CustomToolNamespace>
-      <SubType>Designer</SubType>
-    </EmbeddedResource>
-  </ItemGroup>
-  <ItemGroup>
-    <None Include="My Project\Application.myapp">
-      <Generator>MyApplicationCodeGenerator</Generator>
-      <LastGenOutput>Application.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="My Project\Settings.settings">
-      <Generator>SettingsSingleFileGenerator</Generator>
-      <CustomToolNamespace>My</CustomToolNamespace>
-      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
-    </None>
-    <None Include="packages.config" />
-  </ItemGroup>
-  <ItemGroup>
-    <ProjectReference Include="..\Encryption\Encryption.vbproj">
-      <Project>{8a8f20fc-c46e-41ac-bee7-218366cfff99}</Project>
-      <Name>Encryption</Name>
-    </ProjectReference>
-    <ProjectReference Include="..\Logging\Logging.vbproj">
-      <Project>{903b2d7d-3b80-4be9-8713-7447b704e1b0}</Project>
-      <Name>Logging</Name>
-    </ProjectReference>
-  </ItemGroup>
-  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
-</Project>

Filesystem/My Project/Application.Designer.vb

@@ -1,13 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-

Filesystem/My Project/Application.myapp

@@ -1,10 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
-  <MySubMain>false</MySubMain>
-  <SingleInstance>false</SingleInstance>
-  <ShutdownMode>0</ShutdownMode>
-  <EnableVisualStyles>true</EnableVisualStyles>
-  <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>1</ApplicationType>
-  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>

Filesystem/My Project/AssemblyInfo.vb

@@ -1,35 +0,0 @@
-Imports System
-Imports System.Reflection
-Imports System.Runtime.InteropServices
-
-' Allgemeine Informationen über eine Assembly werden über die folgenden
-' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
-' die einer Assembly zugeordnet sind.
-
-' Werte der Assemblyattribute überprüfen
-
-<Assembly: AssemblyTitle("Modules.Filesystem")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("Digital Data")>
-<Assembly: AssemblyProduct("Modules.Filesystem")>
-<Assembly: AssemblyCopyright("Copyright © 2023")>
-<Assembly: AssemblyTrademark("1.5.2.0")>
-
-<Assembly: ComVisible(False)>
-
-'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
-<Assembly: Guid("2787495c-e65f-4730-be0c-af87bede4b11")>
-
-' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
-'
-'      Hauptversion
-'      Nebenversion
-'      Buildnummer
-'      Revision
-'
-' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
-' übernehmen, indem Sie "*" eingeben:
-' <Assembly: AssemblyVersion("1.0.*")>
-
-<Assembly: AssemblyVersion("1.5.2.0")>
-<Assembly: AssemblyFileVersion("1.5.2.0")>

Filesystem/My Project/Resources.Designer.vb

@@ -1,63 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-Imports System
-
-Namespace My.Resources
-    
-    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
-    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
-    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
-    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
-    '''<summary>
-    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
-    '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
-    Friend Module Resources
-        
-        Private resourceMan As Global.System.Resources.ResourceManager
-        
-        Private resourceCulture As Global.System.Globalization.CultureInfo
-        
-        '''<summary>
-        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
-            Get
-                If Object.ReferenceEquals(resourceMan, Nothing) Then
-                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DigitalData.Modules.Filesystem.Resources", GetType(Resources).Assembly)
-                    resourceMan = temp
-                End If
-                Return resourceMan
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
-        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
-        '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-        Friend Property Culture() As Global.System.Globalization.CultureInfo
-            Get
-                Return resourceCulture
-            End Get
-            Set
-                resourceCulture = value
-            End Set
-        End Property
-    End Module
-End Namespace

Filesystem/My Project/Resources.resx

@@ -1,117 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<root>
-  <!-- 
-    Microsoft ResX Schema 
-    
-    Version 2.0
-    
-    The primary goals of this format is to allow a simple XML format 
-    that is mostly human readable. The generation and parsing of the 
-    various data types are done through the TypeConverter classes 
-    associated with the data types.
-    
-    Example:
-    
-    ... ado.net/XML headers & schema ...
-    <resheader name="resmimetype">text/microsoft-resx</resheader>
-    <resheader name="version">2.0</resheader>
-    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
-    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
-    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
-    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
-    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
-        <value>[base64 mime encoded serialized .NET Framework object]</value>
-    </data>
-    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
-        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
-        <comment>This is a comment</comment>
-    </data>
-                
-    There are any number of "resheader" rows that contain simple 
-    name/value pairs.
-    
-    Each data row contains a name, and value. The row also contains a 
-    type or mimetype. Type corresponds to a .NET class that support 
-    text/value conversion through the TypeConverter architecture. 
-    Classes that don't support this are serialized and stored with the 
-    mimetype set.
-    
-    The mimetype is used for serialized objects, and tells the 
-    ResXResourceReader how to depersist the object. This is currently not 
-    extensible. For a given mimetype the value must be set accordingly:
-    
-    Note - application/x-microsoft.net.object.binary.base64 is the format 
-    that the ResXResourceWriter will generate, however the reader can 
-    read any of the formats listed below.
-    
-    mimetype: application/x-microsoft.net.object.binary.base64
-    value   : The object must be serialized with 
-            : System.Serialization.Formatters.Binary.BinaryFormatter
-            : and then encoded with base64 encoding.
-    
-    mimetype: application/x-microsoft.net.object.soap.base64
-    value   : The object must be serialized with 
-            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
-            : and then encoded with base64 encoding.
-
-    mimetype: application/x-microsoft.net.object.bytearray.base64
-    value   : The object must be serialized into a byte array 
-            : using a System.ComponentModel.TypeConverter
-            : and then encoded with base64 encoding.
-    -->
-  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
-    <xsd:element name="root" msdata:IsDataSet="true">
-      <xsd:complexType>
-        <xsd:choice maxOccurs="unbounded">
-          <xsd:element name="metadata">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" />
-              <xsd:attribute name="type" type="xsd:string" />
-              <xsd:attribute name="mimetype" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="assembly">
-            <xsd:complexType>
-              <xsd:attribute name="alias" type="xsd:string" />
-              <xsd:attribute name="name" type="xsd:string" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="data">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
-              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
-              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
-            </xsd:complexType>
-          </xsd:element>
-          <xsd:element name="resheader">
-            <xsd:complexType>
-              <xsd:sequence>
-                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
-              </xsd:sequence>
-              <xsd:attribute name="name" type="xsd:string" use="required" />
-            </xsd:complexType>
-          </xsd:element>
-        </xsd:choice>
-      </xsd:complexType>
-    </xsd:element>
-  </xsd:schema>
-  <resheader name="resmimetype">
-    <value>text/microsoft-resx</value>
-  </resheader>
-  <resheader name="version">
-    <value>2.0</value>
-  </resheader>
-  <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-  <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
-  </resheader>
-</root>

Filesystem/My Project/Settings.Designer.vb

@@ -1,73 +0,0 @@
-'------------------------------------------------------------------------------
-' <auto-generated>
-'     Dieser Code wurde von einem Tool generiert.
-'     Laufzeitversion:4.0.30319.42000
-'
-'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-'     der Code erneut generiert wird.
-' </auto-generated>
-'------------------------------------------------------------------------------
-
-Option Strict On
-Option Explicit On
-
-
-Namespace My
-    
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.4.0.0"),  _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
-    Partial Friend NotInheritable Class MySettings
-        Inherits Global.System.Configuration.ApplicationSettingsBase
-        
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
-        
-#Region "Automatische My.Settings-Speicherfunktion"
-#If _MyType = "WindowsForms" Then
-    Private Shared addedHandler As Boolean
-
-    Private Shared addedHandlerLockObject As New Object
-
-    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-    Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
-        If My.Application.SaveMySettingsOnExit Then
-            My.Settings.Save()
-        End If
-    End Sub
-#End If
-#End Region
-        
-        Public Shared ReadOnly Property [Default]() As MySettings
-            Get
-                
-#If _MyType = "WindowsForms" Then
-               If Not addedHandler Then
-                    SyncLock addedHandlerLockObject
-                        If Not addedHandler Then
-                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                            addedHandler = True
-                        End If
-                    End SyncLock
-                End If
-#End If
-                Return defaultInstance
-            End Get
-        End Property
-    End Class
-End Namespace
-
-Namespace My
-    
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
-    Friend Module MySettingsProperty
-        
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
-        Friend ReadOnly Property Settings() As Global.DigitalData.Modules.Filesystem.My.MySettings
-            Get
-                Return Global.DigitalData.Modules.Filesystem.My.MySettings.Default
-            End Get
-        End Property
-    End Module
-End Namespace

Filesystem/My Project/Settings.settings

@@ -1,7 +0,0 @@
-<?xml version='1.0' encoding='utf-8'?>
-<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
-  <Profiles>
-    <Profile Name="(Default)" />
-  </Profiles>
-  <Settings />
-</SettingsFile>

Filesystem/packages.config

@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<packages>
-  <package id="NLog" version="5.0.5" targetFramework="net461" />
-  <package id="protobuf-net" version="2.4.0" targetFramework="net461" />
-</packages>

Interfaces/ZUGFeRDInterface/PDFEmbeds.vb

@@ -1,5 +1,7 @@
 Imports System.Collections.Generic
 Imports System.IO
+Imports System.Reflection
+Imports System.Runtime.Remoting.Messaging
 Imports DigitalData.Modules.Logging
 Imports GdPicture14
 
@@ -91,6 +93,64 @@ Public Class PDFEmbeds
         End Try
     End Function
 
+    Public Function RemoveEmbeddedFiles(pFilePath As String) As Boolean
+        Dim oFile As New List(Of EmbeddedFile)
+        Dim oFileInfo As FileInfo
+
+        Logger.Debug("Removing embedded files from [{0}]", pFilePath)
+
+        Try
+            oFileInfo = New FileInfo(pFilePath)
+
+            Logger.Debug("Filename: {0}", oFileInfo.Name)
+            Logger.Debug("Filesize: {0} bytes", oFileInfo.Length)
+            Logger.Debug("Exists: {0}", oFileInfo.Exists)
+        Catch ex As Exception
+            Logger.Warn("File information for [{0}] could not be read!", pFilePath)
+            Logger.Error(ex)
+        End Try
+
+        Try
+            Using oGDPicturePDF As New GdPicturePDF()
+                If oGDPicturePDF.LoadFromFile(pFilePath, False) <> GdPictureStatus.OK Then
+                    Dim oMessage = String.Format("The file [{0}] can't be loaded. Status: [{1}]", pFilePath, oGDPicturePDF.GetStat().ToString())
+                    Throw New ApplicationException(oMessage)
+                End If
+
+                If DoRemove(oGDPicturePDF) = False Then
+                    Dim oMessage = String.Format("Attachments for file [{0}] can't be removed. Status: [{1}]", pFilePath, oGDPicturePDF.GetStat().ToString())
+                    Throw New ApplicationException(oMessage)
+                End If
+            End Using
+
+            Return True
+        Catch ex As Exception
+            Logger.Warn("Unexpected Error while Extracting attachments from File [{0}]", pFilePath)
+            Logger.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Private Function DoRemove(GDPicturePDF As GdPicturePDF) As Boolean
+        Dim oStatus As GdPictureStatus
+
+        Dim oEmbeddedFileCount As Integer = GDPicturePDF.GetEmbeddedFileCount()
+
+        If oStatus <> GdPictureStatus.OK Then
+            Logger.Warn("Embedded files could not be removed. Status: [{0}]", oStatus.ToString)
+            Return False
+        End If
+
+        If oEmbeddedFileCount = 0 Then
+            Return True
+        End If
+
+        While GDPicturePDF.GetEmbeddedFileCount() > 0
+            GDPicturePDF.DeleteEmbeddedFile(0)
+        End While
+
+    End Function
+
     Private Function DoExtract(GDPicturePDF As GdPicturePDF, pExtensions As List(Of String)) As List(Of EmbeddedFile)
         Dim oResults As New List(Of EmbeddedFile)
         Dim oEmbeddedFileCount As Integer = GDPicturePDF.GetEmbeddedFileCount()

Jobs/Jobs.vbproj

@@ -77,10 +77,6 @@
       <Project>{eaf0ea75-5fa7-485d-89c7-b2d843b03a96}</Project>
       <Name>Database</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
-      <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
-      <Name>Filesystem</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Interfaces\Interfaces.vbproj">
       <Project>{ab6f09bf-e794-4f6a-94bb-c97c0ba84d64}</Project>
       <Name>Interfaces</Name>

Jobs/ZUGFeRD/FileFunctions.vb

@@ -1,6 +1,7 @@
 Imports System.Collections.Generic
 Imports System.IO
 Imports System.Linq
+Imports DigitalData.Modules.Base
 Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Interfaces
 Imports DigitalData.Modules.Logging
@@ -11,13 +12,13 @@ Namespace ZUGFeRD
         Private ReadOnly _logConfig As LogConfig
         Private ReadOnly _logger As Logger
         Private ReadOnly _mssql As MSSQLServer
-        Private ReadOnly _filesystem As Filesystem.File
+        Private ReadOnly _filesystem As FilesystemEx
 
         Public Sub New(LogConfig As LogConfig, MSSQL As MSSQLServer)
             _logConfig = LogConfig
             _logger = _logConfig.GetLogger()
             _mssql = MSSQL
-            _filesystem = New Filesystem.File(LogConfig)
+            _filesystem = New FilesystemEx(LogConfig)
         End Sub
 
         Public Sub MoveFiles(

Jobs/ZUGFeRD/ImportZUGFeRDFiles.vb

@@ -32,7 +32,7 @@ Public Class ImportZUGFeRDFiles
 
     Private ReadOnly _logger As Logger
     Private ReadOnly _logConfig As LogConfig
-    Private ReadOnly _filesystem As Filesystem.File
+    Private ReadOnly _filesystem As FilesystemEx
     Private ReadOnly _mssql As MSSQLServer
     Private ReadOnly _email As ZUGFeRD.EmailFunctions
     Private ReadOnly _file As ZUGFeRD.FileFunctions
@@ -58,7 +58,7 @@ Public Class ImportZUGFeRDFiles
     Public Sub New(LogConfig As LogConfig, Optional MSSQL As MSSQLServer = Nothing)
         _logConfig = LogConfig
         _logger = LogConfig.GetLogger()
-        _filesystem = New Filesystem.File(_logConfig)
+        _filesystem = New FilesystemEx(_logConfig)
         _mssql = MSSQL
         _email = New ZUGFeRD.EmailFunctions(LogConfig, _mssql)
         _file = New ZUGFeRD.FileFunctions(LogConfig, _mssql)
@@ -82,11 +82,10 @@ Public Class ImportZUGFeRDFiles
 
         _EmailOutAccountId = oArgs.EmailOutProfileId
 
-        Dim oOptions As New ZUGFeRDInterface.ZugferdOptions() With {
+        _zugferd = New ZUGFeRDInterface(_logConfig, _gdpictureLicenseKey, New ZUGFeRDInterface.ZugferdOptions() With {
             .AllowFacturX_Filename = oArgs.AllowFacturX,
             .AllowXRechnung_Filename = oArgs.AllowXRechnung
-        }
+        })
-        _zugferd = New ZUGFeRDInterface(_logConfig, _gdpictureLicenseKey, oOptions)
 
         _logger.Debug("Starting Job {0}", [GetType].Name)
 
@@ -523,8 +522,6 @@ Public Class ImportZUGFeRDFiles
         End Try
     End Sub
 
-
-
 #Region "=== REFACTOR"
     Private Function ProcessFileGroup(oMessageId As String, pFiles As List(Of FileInfo), oConnections As DatabaseConnections, pArgs As WorkerArgs)
         Dim oMissingProperties = New List(Of String)
@@ -1069,14 +1066,14 @@ Public Class ImportZUGFeRDFiles
         End If
     End Sub
 
-    Private Function CreateMD5(ByVal Filename As String) As String
+    Private Function CreateMD5(pFilename As String) As String
         Try
             Dim oMD5 As New MD5CryptoServiceProvider
             Dim oHash As Byte()
             Dim oHashString As String
             Dim oResult As String = ""
 
-            Using oFileStream As New FileStream(Filename, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
+            Using oFileStream As New FileStream(pFilename, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
                 oHash = oMD5.ComputeHash(oFileStream)
                 oHashString = BitConverter.ToString(oHash)
             End Using
@@ -1236,11 +1233,11 @@ Public Class ImportZUGFeRDFiles
         Return oEmailData
     End Function
 
-    Private Sub AddRejectedState(oMessageID As String, oTitle As String, oTitle1 As String, oComment As String, Transaction As SqlTransaction)
+    Private Sub AddRejectedState(pMessageID As String, pTitle As String, pTitle1 As String, pComment As String, pTransaction As SqlTransaction)
         Try
             'PRCUST_ADD_HISTORY_STATE: @MessageID VARCHAR(250), @TITLE1 VARCHAR(250), @TITLE2 VARCHAR(250)
-            Dim oSQL = $"EXEC PRCUST_ADD_HISTORY_STATE '{oMessageID}','{oTitle}','{oTitle1}','{oComment.Replace("'", "''")}'"
+            Dim oSQL = $"EXEC PRCUST_ADD_HISTORY_STATE '{pMessageID}','{pTitle}','{pTitle1}','{pComment.Replace("'", "''")}'"
-            _mssql.ExecuteNonQuery(oSQL, Transaction)
+            _mssql.ExecuteNonQuery(oSQL, pTransaction)
         Catch ex As Exception
             _logger.Error(ex)
         End Try

Logging.Test/ConstructorUnitTest.vb

@@ -1,46 +1,46 @@
-Imports System.Text
+Imports System.IO
-Imports System.IO
+Imports FluentAssertions
-Imports Microsoft.VisualStudio.TestTools.UnitTesting
-Imports DigitalData.Modules.Logging
 
 ''' <summary>
 ''' Test creating the log path in various configurations
 ''' </summary>
 <TestClass()> Public Class ConstructorUnitTest
-    Private Shared _currentDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "Log")
+    Private Shared ReadOnly _currentDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "Log")
-    Private Shared _appdataDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data", "Modules.Logging", "Log")
+    Private Shared ReadOnly _appdataDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "Digital Data", "Modules.Logging.Test", "Log")
-    Private Shared _customDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "CustomLogFolder")
+    Private Shared ReadOnly _customDirectoryLogPath = Path.Combine(Directory.GetCurrentDirectory(), "CustomLogFolder")
-    Private Shared _restrictedDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.System), "ShouldNotBeCreated")
+    Private Shared ReadOnly _restrictedDirectoryLogPath = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.System), "ShouldNotBeCreated")
-    Private Shared _nonsenseDirectoryLogPath = "X:\FOO\BAR\BAZ\QUUX"
+    Private Shared ReadOnly _nonsenseDirectoryLogPath = "X:\DOES\NOT\EVER\EXIST"
 
     <TestMethod()> Public Sub TestConstructorCurrentDirectory()
-        Assert.ThrowsException(Of ArgumentException)(Sub()
+        Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp)
-                                                         Dim oLogConfig As New LogConfig(LogConfig.PathType.Temp)
+        Dim oTempPath = Path.GetTempPath
-                                                     End Sub)
+        oLogConfig.LogDirectory.Should.Be(oTempPath)
     End Sub
 
     <TestMethod()> Public Sub TestConstructorApplicationDirectory()
         Dim oLogConfig As New LogConfig(LogConfig.PathType.AppData, Nothing, Nothing, "Digital Data", "Modules.Logging")
 
-        Assert.AreEqual(_appdataDirectoryLogPath, oLogConfig.LogDirectory)
+        oLogConfig.LogDirectory.Should.Be(_appdataDirectoryLogPath)
     End Sub
 
     <TestMethod()> Public Sub TestConstructorCustomDirectory()
         Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _customDirectoryLogPath)
 
-        Assert.AreEqual(_customDirectoryLogPath, oLogConfig.LogDirectory)
+        oLogConfig.LogDirectory.Should.Be(_customDirectoryLogPath)
     End Sub
 
     <TestMethod()> Public Sub TestConstructorRestrictedDirectory()
         Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _restrictedDirectoryLogPath)
+        Dim oTempPath = Path.GetTempPath
 
-        Assert.AreEqual(Path.GetTempPath, oLogConfig.LogDirectory)
+        oLogConfig.LogDirectory.Should.Be(oTempPath)
     End Sub
 
     <TestMethod()> Public Sub TestConstructorNonsenseDirectory()
         Dim oLogConfig As New LogConfig(LogConfig.PathType.CustomPath, _nonsenseDirectoryLogPath)
+        Dim oTempPath = Path.GetTempPath
 
-        Assert.AreEqual(Path.GetTempPath, oLogConfig.LogDirectory)
+        oLogConfig.LogDirectory.Should.Be(oTempPath)
     End Sub
 
     <ClassCleanup()> Public Shared Sub Cleanup()

Logging.Test/Logging.Test.vbproj

@@ -52,6 +52,9 @@
     <OptionInfer>On</OptionInfer>
   </PropertyGroup>
   <ItemGroup>
+    <Reference Include="FluentAssertions, Version=6.12.0.0, Culture=neutral, PublicKeyToken=33f2691a05b67b6a, processorArchitecture=MSIL">
+      <HintPath>..\packages\FluentAssertions.6.12.0\lib\netstandard2.0\FluentAssertions.dll</HintPath>
+    </Reference>
     <Reference Include="Microsoft.VisualStudio.TestPlatform.TestFramework, Version=14.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
       <HintPath>..\packages\MSTest.TestFramework.2.1.2\lib\net45\Microsoft.VisualStudio.TestPlatform.TestFramework.dll</HintPath>
     </Reference>
@@ -60,6 +63,12 @@
     </Reference>
     <Reference Include="System" />
     <Reference Include="System.Data" />
+    <Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.0\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
+    </Reference>
+    <Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
+      <HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.0\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
+    </Reference>
     <Reference Include="System.Xml" />
     <Reference Include="System.Core" />
     <Reference Include="System.Xml.Linq" />

Logging.Test/packages.config

@@ -1,5 +1,8 @@
 <?xml version="1.0" encoding="utf-8"?>
 <packages>
+  <package id="FluentAssertions" version="6.12.0" targetFramework="net462" />
   <package id="MSTest.TestAdapter" version="2.1.2" targetFramework="net461" />
   <package id="MSTest.TestFramework" version="2.1.2" targetFramework="net461" />
+  <package id="System.Runtime.CompilerServices.Unsafe" version="4.5.0" targetFramework="net462" />
+  <package id="System.Threading.Tasks.Extensions" version="4.5.0" targetFramework="net462" />
 </packages>

Messaging/Email2.vb

@@ -1,6 +1,6 @@
 Imports System.IO
 Imports DigitalData.Modules.Logging
-Imports DigitalData.Modules.Filesystem
+Imports DigitalData.Modules.Base
 Imports Limilabs.Mail
 Imports Limilabs.Mail.MIME
 Imports Limilabs.Mail.MSG
@@ -11,7 +11,7 @@ Public Class Email2
     Private ReadOnly Logger As Logger
     Private ReadOnly LoggerMail As Logger
     Private ReadOnly LogConfig As LogConfig
-    Private ReadOnly FileEx As Filesystem.File
+    Private ReadOnly FileEx As FilesystemEx
     Private ReadOnly MailBuilder As New MailBuilder()
     Private ReadOnly TempFiles As New List(Of String)
 
@@ -21,7 +21,7 @@ Public Class Email2
         LogConfig = pLogConfig
         Logger = pLogConfig.GetLogger()
         LoggerMail = pLogConfig.GetLogger("Limilabs.Mail")
-        FileEx = New Filesystem.File(pLogConfig)
+        FileEx = New FilesystemEx(pLogConfig)
 
         ' Turn on internal Mail.dll logging
         Limilabs.Mail.Log.Enabled = True

Messaging/Mail/MailSession.vb

@@ -244,8 +244,8 @@ Namespace Mail
             End Try
         End Function
 
-        Public Async Function TestLogin(pServer As String, pPort As Integer, pUser As String, pPassword As String, pAuthType As String, pOptions As MailSessionOptions) As Task(Of Boolean)
+        Public Function TestLogin(pServer As String, pPort As Integer, pUser As String, pPassword As String, pAuthType As String, pOptions As MailSessionOptions) As Boolean
-            Dim oInfo = Await ConnectToServer(pServer, pPort, pUser, pPassword, pAuthType, pOptions)
+            Dim oInfo = ConnectToServer(pServer, pPort, pUser, pPassword, pAuthType, pOptions)
             If oInfo.Connected Then
                 If DisconnectFromServer() Then
                     Return True

Messaging/Messaging.vbproj

@@ -140,10 +140,6 @@
       <Project>{6ea0c51f-c2b1-4462-8198-3de0b32b74f8}</Project>
       <Name>Base</Name>
     </ProjectReference>
-    <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
-      <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
-      <Name>Filesystem</Name>
-    </ProjectReference>
     <ProjectReference Include="..\Language\Language.vbproj">
       <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>
       <Name>Language</Name>

Modules.sln

@@ -13,8 +13,6 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDMI.API", "EDMIAPI\EDMI.AP
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Encryption", "Encryption\Encryption.vbproj", "{8A8F20FC-C46E-41AC-BEE7-218366CFFF99}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Filesystem", "Filesystem\Filesystem.vbproj", "{991D0231-4623-496D-8BD0-9CA906029CBC}"
-EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Interfaces", "Interfaces\Interfaces.vbproj", "{AB6F09BF-E794-4F6A-94BB-C97C0BA84D64}"
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Jobs", "Jobs\Jobs.vbproj", "{39EC839A-3C30-4922-A41E-6B09D1DDE5C3}"
@@ -37,7 +35,9 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ZooFlow", "ZooFlow\ZooFlow.
 EndProject
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Messaging", "Messaging\Messaging.vbproj", "{AF664D85-0A4B-4BAB-A2F8-83110C06553A}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Database.Test", "Database.Test\Database.Test.vbproj", "{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "Database.Test", "Database.Test\Database.Test.vbproj", "{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}"
+EndProject
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Base.Test", "Base.Test\Base.Test.vbproj", "{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -65,10 +65,6 @@ Global
 		{8A8F20FC-C46E-41AC-BEE7-218366CFFF99}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{8A8F20FC-C46E-41AC-BEE7-218366CFFF99}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{8A8F20FC-C46E-41AC-BEE7-218366CFFF99}.Release|Any CPU.Build.0 = Release|Any CPU
-		{991D0231-4623-496D-8BD0-9CA906029CBC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{991D0231-4623-496D-8BD0-9CA906029CBC}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{991D0231-4623-496D-8BD0-9CA906029CBC}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{991D0231-4623-496D-8BD0-9CA906029CBC}.Release|Any CPU.Build.0 = Release|Any CPU
 		{AB6F09BF-E794-4F6A-94BB-C97C0BA84D64}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{AB6F09BF-E794-4F6A-94BB-C97C0BA84D64}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{AB6F09BF-E794-4F6A-94BB-C97C0BA84D64}.Release|Any CPU.ActiveCfg = Release|Any CPU
@@ -117,6 +113,10 @@ Global
 		{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{91B4DFC0-543C-43A7-A9E0-6817DCA277EC}.Release|Any CPU.Build.0 = Release|Any CPU
+		{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2485A8FE-2CE1-418A-B1A0-1332AECE54C4}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

Windream/Windream.vb

@@ -13,6 +13,7 @@ Imports WMOTOOLLib
 
 Imports DigitalData.Modules.Logging
 Imports DigitalData.Modules.Language
+Imports DigitalData.Modules.Base
 
 ''' <module>Windream</module>
 ''' <version>0.0.0.2</version>
@@ -97,7 +98,7 @@ Public Class Windream
 #Region "Private Properties"
     Private ReadOnly _logger As Logger
     Private ReadOnly _logConfig As LogConfig
-    Private ReadOnly _fileSystem As Filesystem.File
+    Private ReadOnly _fileSystem As FilesystemEx
     Private ReadOnly _sessionDomain As String
     Private ReadOnly _sessionPassword As String
     Private ReadOnly _sessionUsername As String
@@ -149,7 +150,7 @@ Public Class Windream
         ' Create logger and save LogFactory for dependent classes
         _logger = LogConfig.GetLogger()
         _logConfig = LogConfig
-        _fileSystem = New Filesystem.File(LogConfig)
+        _fileSystem = New FilesystemEx(LogConfig)
 
         ' Create a session
         Dim oSession As IWMSession2 = NewSession(SessionServerName, SessionUserName, SessionPassword, SessionDomain)
@@ -584,9 +585,7 @@ Public Class Windream
     ''' changes the archive end date
     ''' </summary>
     ''' <param name="wmfilepath">WM Filepath</param>
-    ''' <param name="date_period">number/count of period (if </param>
+    ''' <param name="oArchUntil">number/count of period (if </param>
-    ''' <param name="date_unit">date_unity (d,m,y or day(s),month(s),years(s)</param>
-    ''' <param name="dateFrom_value">dateFrom_value</param>
     ''' <returns>Returns true when date was set, false if not</returns>
     ''' <remarks></remarks>
     Public Function NewLifecycle_PeriodTEST(ByVal wmfilepath As String, ByVal oArchUntil As String)

Windream/Windream.vbproj

@@ -110,7 +110,6 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
-    <Compile Include="Windream_alt.vb" />
     <Compile Include="Windream.vb" />
   </ItemGroup>
   <ItemGroup>
@@ -134,9 +133,9 @@
     <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
-    <ProjectReference Include="..\Filesystem\Filesystem.vbproj">
+    <ProjectReference Include="..\Base\Base.vbproj">
-      <Project>{991d0231-4623-496d-8bd0-9ca906029cbc}</Project>
+      <Project>{6EA0C51F-C2B1-4462-8198-3DE0B32B74F8}</Project>
-      <Name>Filesystem</Name>
+      <Name>Base</Name>
     </ProjectReference>
     <ProjectReference Include="..\Language\Language.vbproj">
       <Project>{d3c8cfed-d6f6-43a8-9bdf-454145d0352f}</Project>