Fix windream basepath being swallowed when combining paths

This commit is contained in:
Jonathan Jenne 2023-06-05 16:36:13 +02:00
parent 3913928a21
commit 10d7680aa3

View File

@ -571,7 +571,7 @@ Public Class frmIndex
CURR_WORKFILE_EXTENSION = extension
oRAWZielordner = WINDREAM.GetNormalizedPath(DT.Rows(0).Item("ZIEL_PFAD"), True)
oRAWZielordner = Path.Combine(WINDREAM_BASEPATH, oRAWZielordner)
oRAWZielordner = WINDREAM_BASEPATH & oRAWZielordner
'####
' Regulären Ausdruck zum Auslesen der Indexe definieren
@ -931,7 +931,10 @@ Public Class frmIndex
If pIndexAttachment = False Then
LOGGER.Debug("Indexing Email File: [{0}]", CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
' This cannot use Path.Combine, otherwise the WINDREAM_BASEPATH will be swallowed... lol
'Dim oMsgFilePath As String = Path.Combine(WINDREAM_BASEPATH, CURRENT_NEWFILENAME)
Dim oMsgFilePath As String = WINDREAM_BASEPATH & CURRENT_NEWFILENAME
Dim oMail As IMail = EMAIL.Load_Email(oMsgFilePath)
Dim oMessageId As String = oMail.MessageID