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

14-08-2023

Browse Source
This commit is contained in:
Jonathan Jenne
2023-08-14 16:48:21 +02:00
parent d5e7ed90be
commit 3fa731fe5f
5 changed files with 28 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Connectors.Form/Modules/slt/sltSync.vb
View File

@@ -53,14 +53,10 @@ Namespace slt
AddInfoEntry("Document: [{0}]", oDocument.Name)
Logger.Info("ExtDocId: [{0}]", oDocument.ExtDocId)
Dim oDocumentName = GetFilenameWithExtension(oDocument.Name, oDocument.DocMimeType)
Dim oDocumentName = GetFilenameWithExtension(oDocument.ExtDocId, 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)
Dim oTempFileName = GetFinalFileName(oFileName, oDocument.ExtDocId)
Dim oFilePath = GetFinalFilePath(oFileName)
If CopyFileToOutputPath(oDocument.Data, oFilePath) = False Then
Throw New ApplicationException("File could not be created in output path!")