DECLARE INTEGER GetLogicalDrives IN kernel32
DECLARE INTEGER GetDriveType IN kernel32 STRING nDrive
 
LOCAL nDrivesMask, nIndex, nShift, cDrive
nDrivesMask = GetLogicalDrives()
 
? "Available disk drives:"
 
nIndex = 0
DO WHILE .T.
    nShift = BitLShift(1, nIndex)
    cDrive = Chr(nIndex + 65) + ":"
 
    IF BitAnd(nDrivesMask, nShift) = nShift
        ? cDrive, GetDriveType(cDrive)
    ENDIF
 
    IF nShift > nDrivesMask
        EXIT
    ENDIF
 
    nIndex = nIndex + 1
ENDDO