Fix issue with filename with ending dot, but no extension #1671

X-Sharp · Jan 13, 2025 · d5cea0f · d5cea0f
1 parent 4c0cb6f
commit d5cea0f
Showing 1 changed file with 6 additions and 2 deletions.
diff --git 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