From d5cea0f7302d2d6b4d5329ee25c223b1a638954b Mon Sep 17 00:00:00 2001 From: Robert van der Hulst Date: Mon, 13 Jan 2025 15:23:20 +0100 Subject: [PATCH] Fix issue with filename with ending dot, but no extension #1671 --- src/Runtime/XSharp.Core/RDD/RDDSupport.prg | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/Runtime/XSharp.Core/RDD/RDDSupport.prg b/src/Runtime/XSharp.Core/RDD/RDDSupport.prg index 468e480879..e1a8313659 100644 --- a/src/Runtime/XSharp.Core/RDD/RDDSupport.prg +++ b/src/Runtime/XSharp.Core/RDD/RDDSupport.prg @@ -114,8 +114,12 @@ CLASS DbOpenInfo RETURN FileName + Extension END GET SET - SELF:FileName :=Path.ChangeExtension(value,null) - SELF:Extension :=Path.GetExtension( value ) + SELF:FileName := Path.ChangeExtension(value,null) + SELF:Extension := Path.GetExtension( value ) + // Make sure that a filename that ends with a '.' like "Test." does not get changed to "Test.Dbf" + if String.IsNullOrEmpty(SELF:Extension) .and. value:EndsWith(".") + SELF:Extension := "." + ENDIF END SET END PROPERTY