LOG_file_copyServerToClient

Copiar um arquivo localizado no disco do servidor para outro arquivo ou diretório localizado na máquina local do usuário.

Sintaxe

LOG_file_copyServerToClient( < l_file > , < l_clientDir > , < l_sem_uso >) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_file

CHAR

Sim

Caminho completo do arquivo existente no disco do servidor.

l_clientDir

CHAR

Sim

Caminho completo do diretório ou arquivo de destino na máquina local.

Se for informado apenas um diretório da máquina local, o arquivo do servidor será transferido pra máquina local com o mesmo nome do arquivo de origem. Se for informado o nome do arquivo local de destino, este nome será respeitado na cópia do servidor para máquina local.

l_sem_uso

SMALLINT

Não

Parâmetro sem uso. Informe este parâmetro com valor NULL.

Para manter a compatibilidade com os programas que já fazem uso desta função, este parâmetro foi mantido.

Retorno

Tipo	Descrição
`SMALLINT`	Verdadeiro caso a cópia do arquivo tenha sido realizada com sucesso.

Exemplo

#------------------------------------------#
 FUNCTION LOG_fileCopyServerToClient_test()
#------------------------------------------#
  DEFINE l_file   CHAR(250)
  DEFINE l_fileTo   CHAR(250)

  LET l_file = "c:\\totvs\\temp\\arquivo1.txt"  ##Arquivo no disco do servidor
  LET l_fileTo = "c:\\temp\\arquivo2.txt"  ##Arquivo de destino no disco da máquina local.

  #Copiar arquivo do servidor para um arquivo de nome diferente em uma pasta da máquina local
  IF LOG_file_copyServerToClient(l_file,l_fileTo,2,NULL) THEN
     CALL conout("Arquivo do servidor copiado com sucesso para outro arquivo na máquina local.")
  ELSE
     CALL conout("Falha na cópia de arquivo do servidor.")
  END IF

  #Copiar arquivo do servidor para uma pasta da máquina local, mantendo o nome do arquivo de origem.
  IF LOG_file_copyServerToClient(l_file,"c:\\temp\\",2,NULL) THEN
     CALL conout("Arquivo do servidor copiado com sucesso para diretório da máquina local.")
  ELSE
     CALL conout("Falha na cópia de arquivo do servidor.")
  END IF
END FUNCTION

Informações

Fontes: funcoes_genericas.4gl, funcoes_genericas.prw

Veja também

LOG_file_copy

Observações

Para cópia de arquivos do disco local para servidor veja a função LOG_file_copyClientToServer.

Páginas filhas