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

11-08-2023

Browse Source
This commit is contained in:
Jonathan Jenne
2023-08-11 11:36:56 +02:00
parent 2579d7abdd
commit acad7b70d0
5 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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!")