diff --git a/app/src/gambas3/.project b/app/src/gambas3/.project index afeaf83de7bc9565d1ad750fe472b3e976b6d948..5e0ac25fba9908c9002cbeb52a34ba87b9f4575b 100644 --- a/app/src/gambas3/.project +++ b/app/src/gambas3/.project @@ -2,7 +2,7 @@ Title=Gambas 3 Startup=Project Icon=img/logo/logo-ide.png -Version=3.12.90 +Version=3.13.90 VersionFile=1 Component=gb.image Component=gb.gui.qt diff --git a/app/src/gambas3/.src/Connection/MConnection.module b/app/src/gambas3/.src/Connection/MConnection.module index 5c83a188f5ff9825cfe502b1bdf329e455341b5f..5e8b90e3261b0e37c754bbe169679658f504ea09 100644 --- a/app/src/gambas3/.src/Connection/MConnection.module +++ b/app/src/gambas3/.src/Connection/MConnection.module @@ -14,9 +14,11 @@ Private $bError As Boolean Public Sub MakeAbsolutePath(sPath As String) As String - If sPath Begins "~/" Then + If sPath = "~" Then + sPath = User.Home + Else If sPath Begins "~/" Then sPath = User.Home &/ Mid$(sPath, 3) - Else If File.IsRelative(sPath) Then + Else If File.IsRelative(sPath) Or If Not sPath Then sPath = Project.Dir &/ sPath Endif