如何在QB64中获得驱动器的默认目录

Question

我一直在使用以下代码来获取所有驱动器的默认目录，但是我不想使用_CWD$

是否有更有效的方法来做到这一点?

REM get default directory of drives.
ON ERROR GOTO ErrSub
FOR D = 1 TO 26
    D$ = CHR$(D + 64) + ":"
    DataError = 0
    CHDIR D$
    IF DataError = 0 THEN
        PRINT _CWD$
    END IF
NEXT
END
ErrSub:
DataError = ERR
RESUME NEXT

Answer 1

对于_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(以及几乎任何运行QB64的类似posix的系统，甚至可能包括Android)。我还没有在这些系统上测试，但它应该工作，因为getcwd是一个POSIX函数。

当这个数字不够大时会发生什么?好吧，QB64不允许数组被传递给库函数，除非variable是CONST variable = ...，否则你不能使用STRING * variable。这意味着你不能扩大字符串再试一次。如果发生这种情况，你可能应该引发一个错误，告诉你出了问题(例如ERROR 75)。

Answer 2

获取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

Answer 3

还注意到默认目录并不总是文件启动的目录，因此，下面是描述每种目录的示例:

' directory file was loaded from
PRINT _CWD$
' declare external libraries.
DECLARE DYNAMIC LIBRARY "kernel32"
    FUNCTION SetCurrentDirectoryA% (f$)
END DECLARE
' force default path
x$ = _STARTDIR$
f$ = x$ + CHR$(0)
x = SetCurrentDirectoryA(f$)
' directory where user is in dos
PRINT _CWD$