Changeset 73ae4de in tol

Timestamp:

Feb 10, 2011, 3:34:50 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

a557227

Parents:

4e6abd1

Message:

Fixes #1091
GetStandardAbsolutePath shows an error message if GetFullPathName fails

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3166 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/bbasic/dir.cpp (modified) (1 diff)

tol/bbasic/dir.cpp

@@ -456 +456 @@
   #define maxPathLength_ 10000
   static char fName[maxPathLength_];
+  fName[0]='\0';
   TCHAR** lppPart={NULL};
   int  len = GetFullPathName(path.String(), maxPathLength_-1, fName, lppPart);
-  path.Copy(fName,len);
+  if(len==0)
+  {
+    bool ShowLastError(const BText& action, bool force);
+    ShowLastError(BText("[GetStandardAbsolutePath(\"")+path+"\")]",true);
+    path = "::INVALID::PATH::";
+  }
+  else
+  {
+    path.Copy(fName,len);
+  }
   path.Replace("\\","/");
 #else