QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Tweaks file dialog to only show accessible drive letters (Windows).

Browse source
This commit is contained in:
FellippeHeitor 2021-01-14 15:36:19 -03:00
parent eaadceb483
commit 58033145c7
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/ide/ide_methods.bas
View file

@ -10260,8 +10260,10 @@ FUNCTION idezpathlist$ (path$)
END IF
'add drive paths
FOR i = 0 TO 25
IF LEN(pathlist$) THEN pathlist$ = pathlist$ + sep
pathlist$ = pathlist$ + CHR$(65 + i) + ":"
IF RIGHT$(pathlist$, 1) <> sep AND LEN(pathlist$) > 0 THEN pathlist$ = pathlist$ + sep
IF _DIREXISTS(CHR$(65 + i) + ":\") THEN
pathlist$ = pathlist$ + CHR$(65 + i) + ":"
END IF
NEXT
idezpathlist$ = pathlist$
EXIT FUNCTION