Как получить каталоги дисков по умолчанию в QB64

Один из способов получить каталоги по умолчанию для всех дисков в QB64 без перехвата ошибок:

REM get default directory of drives.
FOR D = 65 TO 90
    D$ = CHR$(D) + ":"
    IF _DIREXISTS(D$) THEN
        CHDIR D$
        PRINT _CWD$
    END IF
NEXT
END

Для замены _CWD $ вы можете сделать это:

' Need to use DECLARE LIBRARY for the C function getcwd(string, stringSize).
DECLARE LIBRARY ""
    FUNCTION getcwd$ (buffer$, BYVAL buflen)
END DECLARE

' Wrapper function for making usage of getcwd$ more BASIC-like.
DECLARE FUNCTION qb64cwd$ ()

' Print the current working directory.
PRINT qb64cwd$

FUNCTION qb64cwd$ ()
    ' 32768 characters should be more than large enough on any OS.
    REDIM s AS STRING * 32768
    qb64cwd$ = getcwd$(s, 32768)
END FUNCTION

Хотя вам на самом деле не нужна функция-оболочка, функция C требует, чтобы вы передавали строку с достаточным объемом доступной для записи памяти. То есть getcwd не выделяет память. Он ожидает, что вы передадите достаточный объем памяти, а тип QB64 с динамическим размером STRING этого не сделает, поэтому оболочка используется для создания строки фиксированной длины достаточного размера и передачи ее функции. wrapper делает это достаточно хорошо, чтобы этого было достаточно в большинстве случаев. Обратите внимание, что это также должно работать в OS X и Linux (и практически в любой другой системе, подобной POSIX, на которой работает QB64, возможно, даже включая Android). Я не тестировал эти системы, но он должен работать, поскольку getcwd является функцией POSIX.

Что произойдет, если этого числа недостаточно? Что ж, QB64 не позволяет передавать массивы библиотечным функциям, и вы не можете использовать STRING * variable, если variable не равен CONST variable = .... Это означает, что вы не можете увеличить строку и повторить попытку. Вероятно, вам следует поднять ошибку, если это произойдет, чтобы сообщить вам, что что-то пошло не так (например, ERROR 75).