FoxPro/Visual FoxPro - Comprobar que hay un disco en el floppy

Por fovar
Necesito saber como se pude hacer una rutina para comprobar que en la unidad de floppy se encuentre un disco insertado

Hola, revisa la siguiente rutina y me avisas si te sirvio:

En un formulario coloca un control edit, un text y command
en el command coloca el siguiente codigo:

ln = DISKSPACE("A:")
IF ln > 0
thisform.text1.disabledforecolor=rgb(0,64,128)
thisform.text1.value="Existe disco en A"
ELSE
thisform.text1.disabledforecolor=rgb(255,0,0)
thisform.text1.value ="No existe Disco en A . . . Inserte uno"
ENDIF

Saludos

Muchas gracias si me sirvio la rutina,