import.css=/download/attachments/6062824/tecnologia.css

Verifica se determinado arquivo está compilado no RPO corrente de acordo com as extensões (BMP, JPG, PNG, 4GL, PER, MSG e PRW).

Sintaxe

FindObject( < cArq > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cArq

caractere

Indica o nome do arquivo a que será verificado.

X

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (TRUE) se o arquivo foi encontrado no RPO, caso contrario, retornará falso (FALSE) se o arquivo não foi encontrado.

Exemplos

FUNCTION Exemplo()
  DEFINE lRet smallint
  
  LET lRet = FindObject("Teste.4gl")
  
  IF lRet THEN
    CALL CONOUT("Arquivo encontrado!")
  ELSE
    CALL CONOUT("Arquivo nao encontrado!")
  END IF 
END FUNCTION

Abrangência

Disponível a partir da Build 7.00.080806P

Veja também