Need a little help with updating a FileSelect function.

[Dav]

Hi Dav,
below is the logic I use in my GuiTools, but it's windows only. I've no idea how to figure out if you're in the root under Linux/Mac as those don't use the ":" as far as I know. Also I'm not sure if those platforms behave the same way as Windows regarding the error numbers.

Code: (Select All)

'curr$ = the directory to check

IF NOT _DIREXISTS(curr$) THEN

    IF LEN(curr$) = 3 AND RIGHT$(curr$, 2) = ":\" THEN 'is root ??

        'permission denied or no media in (removeable) drive

    ELSE

        'path not found

    END IF

ELSE

    IF LEN(curr$) > 3 OR MID$(curr$, 2, 1) <> ":" THEN 'is not root or relative ??

        oldCurr$ = _CWD$

        ON ERROR GOTO internalHandler

        lastErr% = 0

        CHDIR curr$

        ON ERROR GOTO 0

        IF lastErr% = 0 THEN

            'path is accessible

        ELSEIF lastErr% = 76 THEN

            'permission denied

        END IF

        CHDIR oldCurr$

    END IF

END IF



internalHandler:

lastErr% = ERR

RESUME NEXT

Thank you.  I can use this.

- Dav