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
|
||||
'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
|
||||
|
|
Loading…
Reference in a new issue