Visual Foxpro 5.0

Hola que tal.
Sabes que tengo un pequeño problema en visual necesito agregar en un arreglo todas las unidades de mi pc para luego ese arreglo mostrarlo en un combo_box ... Pero que sea automático y que funcione para cualquier pc y reconozca todas las unidades de este.

1 Respuesta

Respuesta
1
Esta función te servirá.
*------------------------------------------------------
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
*------------------------------------------------------
Saludos, y por favor no olvides finalizar la pregunta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas