FoxPro/Visual FoxPro - Identificar tipos de Medio

FUNCTION ListDrives()
LOCAL ln, lnTipo
FOR ln = 65 TO 92
lnTipo = DRIVETYPE(CHR(ln))
DO CASE
CASE lnTipo = 1
*--- Ningún tipo
CASE lnTipo = 2
? CHR(ln)+": Disquete"
CASE lnTipo = 3
? CHR(ln)+": Disco duro"
CASE lnTipo = 4
? CHR(ln)+": Unidad de red o unidad extraible "
CASE lnTipo = 5
? CHR(ln)+": CD-ROM"
CASE lnTipo = 6
? CHR(ln)+": Disco RAM"
ENDCASE
ENDFOR
RETURN ""
ENDFUNC

o

oFSO = CREATEOBJECT('Scripting.FileSystemObject')
For Each oDrive in oFso.Drives
? oDrive.DriveLetter
EndFor

declare laDiscos[6]
laDiscos[1] = "Desconocido"
laDiscos[2] = "Removible"
laDiscos[3] = "Partición Local"
laDiscos[4] = "Compartido LAN"
laDiscos[5] = "CD-ROM"
laDiscos[6] = "RAM Disk"

For Each oDrive in oFso.Drives
n = oDrive.DriveType
? oDrive.DriveLetter + ":\" + SPACE(4) + laDiscos(n+1)
EndFor