From acad7b70d0fa30525240a2eb475fe4e5ba16a2a7 Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 11 Aug 2023 11:36:56 +0200
Subject: [PATCH] 11-08-2023

---
 Connectors.Form/Connectors.Form.vbproj       |  4 +++-
 Connectors.Form/Modules/slt/sltSync.vb       | 10 ++++++++--
 Connectors.Form/My Project/Application.myapp |  8 ++++----
 Connectors.Form/My Project/AssemblyInfo.vb   |  4 ++--
 Connectors.Form/packages.config              |  5 -----
 5 files changed, 17 insertions(+), 14 deletions(-)
 delete mode 100644 Connectors.Form/packages.config

diff --git a/Connectors.Form/Connectors.Form.vbproj b/Connectors.Form/Connectors.Form.vbproj
index 5634243..5521b7d 100644
--- a/Connectors.Form/Connectors.Form.vbproj
+++ b/Connectors.Form/Connectors.Form.vbproj
@@ -40,6 +40,9 @@
   <PropertyGroup>
     <StartupObject>Connectors.Form.My.MyApplication</StartupObject>
   </PropertyGroup>
+  <PropertyGroup>
+    <ApplicationIcon>App.ico</ApplicationIcon>
+  </PropertyGroup>
   <ItemGroup>
     <Reference Include="DevExpress.BonusSkins.v21.2" />
     <Reference Include="DevExpress.Data.v21.2" />
@@ -148,7 +151,6 @@
       <DependentUpon>Settings.settings</DependentUpon>
       <DesignTimeSharedInput>True</DesignTimeSharedInput>
     </Compile>
-    <None Include="packages.config" />
   </ItemGroup>
   <ItemGroup>
     <None Include="My Project\Application.myapp">
diff --git a/Connectors.Form/Modules/slt/sltSync.vb b/Connectors.Form/Modules/slt/sltSync.vb
index 96590fd..f65ff96 100644
--- a/Connectors.Form/Modules/slt/sltSync.vb
+++ b/Connectors.Form/Modules/slt/sltSync.vb
@@ -53,8 +53,14 @@ Namespace slt
                         AddInfoEntry("Document: [{0}]", oDocument.Name)
                         Logger.Info("ExtDocId: [{0}]", oDocument.ExtDocId)
 
-                        Dim oFileName = GetFilenameWithExtension(oDocument.Name, oDocument.DocMimeType)
-                        Dim oFilePath = Path.Combine(Config.OutputDirectory, oFileName)
+                        Dim oDocumentName = GetFilenameWithExtension(oDocument.Name, oDocument.DocMimeType)
+                        Dim oFileName = ConvertFilenameToSlug(oDocumentName)
+                        Dim oSubPath = FileEx.CreateDateDirectory(Config.OutputDirectory)
+                        If oSubPath Is Nothing Then
+                            Throw New ApplicationException("Output sub path could not be created!")
+                        End If
+                        Dim oFilePath = Path.Combine(oSubPath, oFileName)
+                        Logger.Debug("Subdirectory [{0}] created.", oSubPath)
 
                         If CopyFileToOutputPath(oDocument.Data, oFilePath) = False Then
                             Throw New ApplicationException("File could not be created in output path!")
diff --git a/Connectors.Form/My Project/Application.myapp b/Connectors.Form/My Project/Application.myapp
index 1243847..a22a917 100644
--- a/Connectors.Form/My Project/Application.myapp	
+++ b/Connectors.Form/My Project/Application.myapp	
@@ -1,11 +1,11 @@
 <?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">
+<MyApplicationData xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
   <MySubMain>true</MySubMain>
-  <MainForm>Form1</MainForm>
+  <MainForm>frmMain</MainForm>
   <SingleInstance>false</SingleInstance>
   <ShutdownMode>0</ShutdownMode>
   <EnableVisualStyles>true</EnableVisualStyles>
   <AuthenticationMode>0</AuthenticationMode>
-  <ApplicationType>0</ApplicationType>
   <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
-</MyApplicationData>
+  <HighDpiMpde>false</HighDpiMpde>
+</MyApplicationData>
\ No newline at end of file
diff --git a/Connectors.Form/My Project/AssemblyInfo.vb b/Connectors.Form/My Project/AssemblyInfo.vb
index 445d76c..af4f921 100644
--- a/Connectors.Form/My Project/AssemblyInfo.vb	
+++ b/Connectors.Form/My Project/AssemblyInfo.vb	
@@ -5,11 +5,11 @@ Imports System.Runtime.InteropServices
 ' General Information about an assembly is controlled through the following 
 ' set of attributes. Change these attribute values to modify the information
 ' associated with an assembly.
-<Assembly: AssemblyTitle("sltSync")>
+<Assembly: AssemblyTitle("Connectors.Form")>
 <Assembly: AssemblyDescription("")>
 <Assembly: AssemblyConfiguration("")>
 <Assembly: AssemblyCompany("Digital Data")>
-<Assembly: AssemblyProduct("sltSync")>
+<Assembly: AssemblyProduct("Connectors.Form")>
 <Assembly: AssemblyCopyright("Copyright ©  2023")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: AssemblyCulture("")>
diff --git a/Connectors.Form/packages.config b/Connectors.Form/packages.config
deleted file mode 100644
index 0ddda56..0000000
--- a/Connectors.Form/packages.config
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<packages>
-  <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net462" />
-  <package id="NLog" version="5.0.5" targetFramework="net462" />
-</packages>
\ No newline at end of file