1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-01 13:50:36 +00:00

Give proper error message when 'internal' folder can't be found.

This commit is contained in:
FellippeHeitor 2016-09-01 21:38:24 -03:00
parent 4165638303
commit e6425a5f11
2 changed files with 2 additions and 0 deletions

View file

@ -1,5 +1,6 @@
DIM SHARED Cache_Folder AS STRING
Cache_Folder$ = "internal\help"
IF _DIREXISTS("internal") = 0 THEN GOTO NoInternalFolder
IF _DIREXISTS(Cache_Folder$) = 0 THEN MKDIR Cache_Folder$
DIM SHARED Help_sx, Help_sy, Help_cx, Help_cy
DIM SHARED Help_Select, Help_cx1, Help_cy1, Help_SelX1, Help_SelX2, Help_SelY1, Help_SelY2

View file

@ -65,6 +65,7 @@ IF _FILEEXISTS("refactor.txt") THEN
CLOSE fh
END IF
NoInternalFolder:
IF _DIREXISTS("internal") = 0 THEN
_SCREENSHOW
PRINT "QB64 cannot locate the 'internal' folder"