... lRet:=IF(SubStr(cBuffer,1,1)==Chr(26),.T.,.F.) ENDIF FClose(nHandle) ELSE MsgInfo("Error, No se pudo abrir la Base de Datos "+cDbf,"Verifique !!") ENDIF RETURN (lRet) FUNCTION DbProtect(cDbf,nAction) LOCAL nHandle:=0 LOCAL cBuffer:=Space(32) nHandle:=FOpen(cDbf,FO_READWRITE+FO_SHARED) ...