LOG_dir_exist

Retorna a existência de um diretório no disco do Servidor (AppServer) ou Local.

Sintaxe

LOG_dir_exist( < l_dir > , < l_client >) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_dir

CHAR

Sim

Caminho completo do diretório em disco a ser avaliado.

Não deve ser enviado um caminho contendo nome de um arquivo ao final, apenas o caminho do diretório.

l_client

SMALLINT

Sim

Ambiente de pesquisa do diretório:

0 - Servidor

1 - Local

Retorno

Tipo	Descrição
`SMALLINT`	Verdadeiro (TRUE) se o diretório informado for encontrado no ambiente indicado. Caso ocorra alguma falha (FALSE), pode-se recuperar a mensagem de erro para exibi-la ao usuário usando a função log0030_mensagem_get_texto()

Exemplo

#----------------------------#
 FUNCTION LOG_DirExist_test()
#----------------------------#
  DEFINE l_dir  CHAR(250)

  LET l_dir = "c:\\temp\\"

  IF LOG_dir_exist(l_dir,0) THEN
     CALL conout("Diretório existe no servidor")
  ELSE
     CALL conout("FALHA. Motivo: "||log0030_mensagem_get_texto())
  END IF

  IF LOG_dir_exist(l_dir,1) THEN
     CALL conout("Diretório existe no CLIENT")
  ELSE
     CALL conout("FALHA. Motivo: "||log0030_mensagem_get_texto())
  END IF
END FUNCTION

Informações

Fontes: directory.4gl, directory.prw

Veja também

LOG_file_exist

Páginas filhas