FoxPro/Visual FoxPro - Error al abrir TXT

***Esta es la procedure de un boton

LOCAL SelecArchivo,TieneInf,ChecaInf,vMes,Vdia,vPeriodo
STORE " " TO SelecArchivo,vMes,vDia,vPeriodo
STORE 1 TO TieneInf,ChecaInf
**Selecciono Archivo
SelecArchivo=getfile("txt","Abrir...","Abrir")
***Checo si tiene inf
TieneInf = FOPEN(SelecArchivo,12)
STORE FSEEK(TieneInf, 0, 2) TO ChecaInf
IF ChecaInf <= 0
*** si No tiene
=MESSAGEBOX("Este Archivo no tiene informacion o es invalido",0+16,"!!! Error ¡¡¡")
ELSE
CREATE Cursor Temporal(Campo_Memo M)
SELECT Temporal
APPEND BLANK
FCLOSE(SelecArchivo)
APPEND MEMO Campo_Memo FROM &SelecArchivo
SCATTER MEMVAR Memo
FOR Renglon=1 TO to MEMLINES(m.campo.memo)
LaLineaLeida=mline(m.campo_memo,Renglon)
IF LEFT(LalineaLeida,1)="P"
vMes=Substr(LaLineaLeida,10,2)
vDia=SubStr(LaLineaLeida,8,2)
vPeriodo=SubStr(LaLinea,4,4)
ENDIF
LaFechaMov=vDia+"/"+vMes+"/"+vPeriodo
WAIT WINDOW LaFechaMov
Endfor
ENDIF

RELEASE Temporal

ME MARCA ESTOS ERRORES

** En Append Memo siempre me marca "Error del Programa","Denegado [nombre del archivo]al acceso del archivo

** y cuando trato de ejecutarlo mas de 1 vez siempre me marca el error del MessageBox aun asi seleccione el archivo que use la primera vez

Gracias por su ayuda

Ya quedo!! los dos errores venian del mal uso del Fclose, ya que en el FCLOSE ponia lo obtenido en GETFILE cuando en realidad deberia de poner la variable usada en FOPEN