Histórico da Página

#------------------------------------------#
 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