Retorna a existência de um arquivo no disco onde do Servidor (AppServer) ou Local.
Sintaxe
LOG_file_exist( < l_file > , < l_client >) => SMALLINT
Parâmetros
Nome | Tipo | Obrigatório? | Descrição |
---|
l_file | CHAR
| Sim | Caminho completo do arquivo em disco a ser avaliado. |
l_client | SMALLINT
| Sim | Ambiente de pesquisa do arquivo: 0 - Servidor 1 - Local. |
Retorno
Tipo | Descrição |
---|
SMALLINT
| Verdadeiro se o arquivo informado for encontrado no ambiente indicado. |
Exemplo
FUNCTION LOG_fileExist_test()
DEFINE l_file CHAR(250)
LET l_file = "c:\\temp\\arquivo1.txt"
IF LOG_file_exist(l_file,0) THEN
CALL conout("Arquivo existe no servidor")
ELSE
CALL conout("Arquivo não existe no servidor")
END IF
IF NOT LOG_file_exist(l_file,1) THEN
CALL conout("Arquivo não existe no client")
ELSE
CALL conout("Arquivo existe no client")
END IF
END FUNCTION
Fontes: file.4gl, file.prw
Observações