mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 11:40:38 +00:00
Tweaks file dialog to only show accessible drive letters (Windows).
This commit is contained in:
parent
eaadceb483
commit
58033145c7
|
@ -10260,8 +10260,10 @@ FUNCTION idezpathlist$ (path$)
|
||||||
END IF
|
END IF
|
||||||
'add drive paths
|
'add drive paths
|
||||||
FOR i = 0 TO 25
|
FOR i = 0 TO 25
|
||||||
IF LEN(pathlist$) THEN pathlist$ = pathlist$ + sep
|
IF RIGHT$(pathlist$, 1) <> sep AND LEN(pathlist$) > 0 THEN pathlist$ = pathlist$ + sep
|
||||||
pathlist$ = pathlist$ + CHR$(65 + i) + ":"
|
IF _DIREXISTS(CHR$(65 + i) + ":\") THEN
|
||||||
|
pathlist$ = pathlist$ + CHR$(65 + i) + ":"
|
||||||
|
END IF
|
||||||
NEXT
|
NEXT
|
||||||
idezpathlist$ = pathlist$
|
idezpathlist$ = pathlist$
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
|
|
Loading…
Reference in a new issue