MACRO DRIVE_REMOVABLE = 2
MACRO DRIVE_FIXED     = 3
MACRO DRIVE_REMOTE    = 4
MACRO DRIVE_CDROM     = 5
MACRO DRIVE_RAMDISK   = 6

DIM i
DIM a$
DIM k

FOR i = 0 TO 25
  a$ = CHR$(i + 65) & ":\"
  k = GetDriveType(a$)
  SELECT CASE k
  CASE DRIVE_REMOVABLE
    PRINT a$, " is a removable disk."
  CASE DRIVE_FIXED
    PRINT a$, " is a fixed disk."
  CASE DRIVE_REMOTE
    PRINT a$, " is a remote disk."
  CASE DRIVE_CDROM
    PRINT a$, " is a CD-ROM drive."
  CASE DRIVE_RAMDISK
    PRINT a$, " is a RAMDisk."
  END SELECT
NEXT

Result:

C:\ is a fixed disk.
D:\ is a fixed disk.
E:\ is a fixed disk.
F:\ is a fixed disk.
H:\ is a CD-ROM drive.