Issue with code?

[RhoSigma]

If you are not depend, that your programs are Linux/Mac compatible, but working on Windows only, then you may use a WinAPI call and do some bit puzzeling.

Code: (Select All)

DECLARE LIBRARY
    FUNCTION GetLogicalDrives& ()
END DECLARE

'Find all currently available drives in one compact string.
PRINT CurrDrives$

'Test for a particular drive.
IF INSTR(CurrDrives$, "E") > 0 THEN
    PRINT "Drive E: is available."
ELSE
    PRINT "Drive E: is not available."
END IF
END

FUNCTION CurrDrives$
cdm& = GetLogicalDrives&
drives$ = "": i& = (2 ^ 25): d% = ASC("Z")
DO
    IF (cdm& AND i&) THEN drives$ = CHR$(d%) + drives$
    i& = i& \ 2: d% = d% - 1
LOOP UNTIL i& = 0
CurrDrives$ = drives$
END FUNCTION

On my system it prints:

CDEF
Drive E: is available.