Páginas filhas
  • LOG_file_exist

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

Informações


Fontes: file.4gl, file.prw