Capaz de listar todos os drives do computador. Apontando o valor da unidade e sua descrição:

? listdrives() && Aqui chama a função abaixo;

FUNCTION ListDrives()

LOCAL ln, lnTipo

FOR ln = 65 TO 92

lnTipo = DRIVETYPE(CHR(ln))

DO CASE

CASE lnTipo = 1

* Não identificado

CASE lnTipo = 2

? CHR(ln)+": Disquete"

CASE lnTipo = 3

? CHR(ln)+": Dico Rídigo"

CASE lnTipo = 4

? CHR(ln)+": Unidade de Rede "

CASE lnTipo = 5

? CHR(ln)+": CD-ROM"

ENDCASE

ENDFOR

RETURN ""

ENDFUNC