Code:

CONST REMOVABLE = 2CONST FIXED = 3CONST REMOTE = 4CONST CDROM = 5CONST RAMDISK = 6DECLARE LIBRARY  FUNCTION GetDriveTypeA& (nDrive AS STRING)  FUNCTION GetLogicalDriveStringsA (BYVAL nBuff AS LONG, lpbuff AS STRING)END DECLAREDIM DList AS STRING, DL AS STRINGDIM i AS LONG, typ AS LONGi = GetLogicalDriveStringsA(0, DList) 'zero returns the drive string byte sizeDList = SPACE$(i) 'set drive string length. Each drive is followed by CHR$(0)i = GetLogicalDriveStringsA(i, DList) 'the byte size returns a string that longPRINT DListFOR n = 65 TO 90  IF INSTR(DList, CHR$(n)) THEN    DL = CHR$(n) + ":\" + CHR$(0)    typ = GetDriveTypeA(DL)    SELECT CASE typ      CASE REMOVABLE: PRINT DL + "Removable"      CASE FIXED: PRINT DL + "Fixed"      CASE REMOTE: PRINT DL + "Remote"      CASE CDROM: PRINT DL + "CDROM"      CASE RAMDISK: PRINT DL + "RAM"    END SELECT  END IFNEXT