FoxPro/Visual FoxPro - problema con el manejo de errores

Estoy tratando de manejar los errores para evitar que aparezcan los mensajes de Visual FoxPro 6, tengo problemas cuando detecto que no hay disco en la disquetera, es decir, me aparece el mensaje de VFP, el codigo que implemeto es el siguiente,

PARAMETER merror
if merror = 1
*messagebox ("No existe el archivo") //no hace nada
else
if merror = 12
messagebox ("No hay disco en la unidad A:",0+48,"Aviso de SisCalCap")
endif
endif

Hasta donde investigue ese es el # de error que se marca cuando no hay disco de 3 1/2 en la disquetera.

Gracias

Puedes hacerlo de varias formas ...

IF DISKSPACE("A:") < 0
MESSAGEBOX("No hay disco en la unidad")
ELSE
MESSAGEBOX("Si hay disco ....")
ENDIF

Con WSH

oFSO = CREATEOBJECT("Scripting.FileSystemObject")
? oFSO.FolderExists("A:\")

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia

Hola, el "FileSystemObject" es una buena herramienta ya que no devuelve un mensaje de error sino que devuelve .t. o .f. dependiendo de si la unidad esta activa:

vsfs = CreateObject("Scripting.FileSystemObject")
vdis = vsf.Drives("a:").IsReady
if vdis = .f.
messagebox('Hay disco')
else
messagebox('Hay disco')
endif

Camilo Bernal
Bogotá, Colombia