FoxPro/Visual FoxPro - Como saber las paticiones de disco?

Hola amigos del foro.
Como hago para saber cuantas unidades de disco tiene una PC donde mi programa correrá?.
Gracias por la ayuda

Yo tengo algo como esto:
CREATE CURSOR c_drives (campo1 C(20),campo2 C(2)) &&Campo 1 descripcion, campo2 Unidad

***Chequeo los drives desde la A hasta la j Para llenar cursor de drives
**65 A 74
FOR i = 65 TO 74
letra = CHR(i)
tipo = DRIVETYPE('&letra')
descripcion = ""

DO CASE
CASE tipo = 1 &&Drive no existe
LOOP &&Retorna
CASE tipo = 2 && Diskettes
descripcion = "&letra "+"==>Diskettes"
CASE tipo = 3 && Disco Duro
descripcion = "&letra "+"==> Disco Duro"
CASE tipo = 4 && Unidad de Red o extraible
descripcion = "&letra "+"==> Extraible o de Red"
CASE tipo = 5 &&CD-ROM
descripcion = "&letra "+"==> CD ROM"
ENDCASE
IF !EMPTY(descripcion)
INSERT INTO c_drives (campo1,campo2);
VALUE (descripcion, letra)
ENDIF
ENDFOR
SELECT c_drives
GO TOP