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 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)
MyBase.New(pLogConfig)
@ -91,8 +93,7 @@ Public MustInherit Class BaseModule
End If
If Config.AddImportSubDirectory = True Then
Dim oGuid = Guid.NewGuid.ToString()
Dim oSubPath = Path.Combine(oFinalDirectoryPath, oGuid)
Dim oSubPath = Path.Combine(oFinalDirectoryPath, DirectoryGuid)
Try
Directory.CreateDirectory(oSubPath)
Catch ex As Exception