From 58033145c7b108d8fd8ede67d0bcf11ff99eb63c Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Thu, 14 Jan 2021 15:36:19 -0300
Subject: [PATCH] Tweaks file dialog to only show accessible drive letters
 (Windows).

---
 source/ide/ide_methods.bas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 0df30b820..2e685d68e 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -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