LOG_file_copyClientToServer

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_copyClientToServer( < l_localFile > , < l_serverDir > , < l_sem_uso >) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_localFile

CHAR

Sim

Caminho completo do arquivo existente no disco local.

l_serverDir

CHAR

Sim

Caminho completo do diretório ou arquivo de destino no disco do servidor.

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_fileCopyClientToServer_test()
#------------------------------------------#
  DEFINE l_file   CHAR(250)
  DEFINE l_fileTo   CHAR(250)

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

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

  #Copiar arquivo local para uma pasta do servidor, mantendo o nome do arquivo de origem.
  IF LOG_file_copyClientToServer(l_file,"c:\\temp\\",2,NULL) THEN
     CALL conout("Arquivo local copiado com sucesso para diretório no servidor.")
  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 servidor para máquina local veja a função LOG_file_copyServerToClient.

Páginas filhas