FoxPro/Visual FoxPro - Detectar USB

   
Vista:

Detectar USB

Publicado por Luis Polo (134 intervenciones) el 13/05/2009 21:58:38
Saludos foristas:
Existe algun comando en VFP, que al correr mi ejecutable, este pudiera identificar si es USB o disco duro, donde lo estoy ejecutando. Ya que quiero hacer un demo portable.

Desde ya, muchas gracias por cualquier ayuda.

Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Detectar USB

Publicado por Edgar dvd (135 intervenciones) el 14/05/2009 02:31:25
utilza el comando sys(5) la cual te devuele la unidad de trabajo desde donde se corrio el ejecutable, algo asi

If Left(Sys(5),1) == 'C'
* Estas dentro dela unidad c osea el disco duro
Else
* Estas en una unidad diferente del c la cual puede ser una memoria
Endif

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Detectar USB

Publicado por Luis Polo (134 intervenciones) el 14/05/2009 15:03:46
Hola Edgar:
Gracias por responder; y que pasaria si mi disco esta particionado por 3 unidades C, D y E; ese es mi problema.

Si hay mas ideas bienvenidas.
Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Detectar USB

Publicado por enrique (1041 intervenciones) el 14/05/2009 15:53:59
Proba esto

v_ubicacion=sys(5) && de donde arranca el ejecutable

Declare Long GetDriveType In "kernel32" ;
STRING nDrive

if ":"$v_ubicacion
Do Case
Case Getdrivetype(v_ubicacion) = 1
? v_ubicacion+" DESCONOCIDO"
Case Getdrivetype(v_ubicacion) = 2
? v_ubicacion+" DISCO REMOVIBLE"
Case Getdrivetype(v_ubicacion) = 3
? v_ubicacion+" DISCO DURO"
Case Getdrivetype(v_ubicacion) = 4
? v_ubicacion+" DISCO EN RED"
Case Getdrivetype(v_ubicacion) = 5
? v_ubicacion+" CDROM"
Case Getdrivetype(v_ubicacion) = 6
? v_ubicacion+" DISCO RAM"
EndCase

endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Detectar USB

Publicado por Mario (199 intervenciones) el 14/05/2009 17:24:50
Siempre hay que recurrir a PortalFox

http://www.portalfox.com/index.php?name=News&file=article&sid=1893&mode=nested&order=0&thold=0

http://www.portalfox.com/index.php?name=News&file=article&sid=2606
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

[ SOLUCIONADO..... ]

Publicado por Luis Polo (134 intervenciones) el 17/05/2009 16:54:47
Hola Mario:
Gracias por tu respuesta.

Enrique:
Maestro, gracias por el codigo.... buenazo infinitamente adradecido.

Saludos...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar