FoxPro/Visual FoxPro - Detectar USB

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.

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

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.

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

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

Hola Mario:
Gracias por tu respuesta.

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

Saludos...