AppCustom/sltSync
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix ImportFolder names

Browse Source
This commit is contained in:
Jonathan Jenne 2023-08-30 17:01:36 +02:00
parent 5cf8636e49
commit 16dba7bdcd
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Connectors.Common/Modules/BaseModule.vb
View File

@ -29,6 +29,8 @@ Public MustInherit Class BaseModule
Public Event OnFileProcessed As EventHandler(Of String) Implements ISync.OnFileProcessed Public Event OnFileProcessed As EventHandler(Of String) Implements ISync.OnFileProcessed
Public Event OnFileError As EventHandler(Of String) Implements ISync.OnFileError Public Event OnFileError As EventHandler(Of String) Implements ISync.OnFileError
Private ReadOnly DirectoryGuid As String = Guid.NewGuid.ToString()
Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As Config) Public Sub New(pLogConfig As LogConfig, pDatabase As MSSQLServer, pConfig As Config)
MyBase.New(pLogConfig) MyBase.New(pLogConfig)
@ -91,8 +93,7 @@ Public MustInherit Class BaseModule
End If End If
If Config.AddImportSubDirectory = True Then If Config.AddImportSubDirectory = True Then
Dim oGuid = Guid.NewGuid.ToString() Dim oSubPath = Path.Combine(oFinalDirectoryPath, DirectoryGuid)
Dim oSubPath = Path.Combine(oFinalDirectoryPath, oGuid)
Try Try
Directory.CreateDirectory(oSubPath) Directory.CreateDirectory(oSubPath)
Catch ex As Exception Catch ex As Exception