FoxPro/Visual FoxPro - Como Determino si Esta Abierto un .xls, .doc etc.

Amigos
Quiero saber como determino si esta en uso cualquier archivo
ej. un .xls, .doc, un .txt , etc. Para poder eliminarlo o sobreescribirlo

Saludos
Carlitos U.

tuArchivo = 'hoja.xls'
archivo_abierto = FOPEN('&tuArchivo',2)
IF archivo_abierto = -1 &&alquien lo esta usando
=messagebox('esta siendo Usado')
ELSE
=FCLOSE(archivo_abierto)
ENDIF