Função

Inicial - Banco de Códigos

Verificar se arquivo ainda existe (Forms/Report)

Data de Inclusão: 02/09/2006 | Última Alteração: 02/09/2006
Tipo:Função | Enviada por: Moderador Oracle_br (moderador@oraclebr.com.br)

Utilizo para isto uma funcao existente na D2KWUTIL, como no exemplo abaixo:

FUNCTION VERIFICA_EXISTENCIA_ARQUIVO (NOMEARQUIVO VARCHAR2, MENSAGEM
VARCHAR2) RETURN BOOLEAN IS
SIZE_DOC NUMBER;
BEGIN
BEGIN
SIZE_DOC := WIN_API_FILE.FILE_SIZE(NOMEARQUIVO, TRUE);

RETURN(TRUE);

EXCEPTION
WHEN NO_DATA_FOUND THEN
BEGIN
IF MENSAGEM = 'S' THEN
MESSAGE('Não foi possível encontrar o arquivo
'||NOMEARQUIVO||'. O arquivo foi excluído, movido ou renomeado!');
MESSAGE('.');
END IF;
RETURN(FALSE);
END;
END;
RETURN NULL; END;

Saudações

Ovidio Franco de Sá Menezes