DECLARE INTEGER GetLogicalDriveStrings IN Win32API;
  INTEGER nBufferLength, STRING @lpBuffer
lcbuffer = SPACE(100)
lnsize = LEN(lcbuffer)
IF GetLogicalDriveStrings(lnsize, @lcbuffer) > 0
  lcbuffer = CHRTRAN(lcbuffer, CHR(0), CHR(13))
  lndrives = Words(lcbuffer, CHR(13)) && Get the number of drives
  FOR lni = 1 TO lndrives
    ? DRIVETYPE(WordNum(lcbuffer, lni, CHR(13)))
  NEXT
ENDIF