Fórum Como copiar arquivos pela internet usando terminal server #320209

Olá!

Com outro programa em COBOL eu consigo executar um .BAT com o seguinte comando.
xcopy arquivo1 \\tsclient\c\pasta\arquivo2 /y

Só que agora está mais complicado. Só o programa sabe qual o nome do arquivo origem.

Tentei destas duas formas que eu achei aqui fórum.
CopyFile(´arquivo1´,´\\tsclient\c\pasta\arquivo2´,True);

e

uses ShellApi;
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(arquivo1);
pTo := PChar(´\\tsclient\c\pasta\arquivo2´);
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;

Só que nestes dois casos não funcionam via internet. E também nãlo dá para colocar string como arquivo origem.

O que eu estava tentando fazer era isso.

Programa <caminho do arquivo>

E dentro do programa uma string iria capturar o arquivo que o outro programa informou e copiá-lo para o HD local com outro nome usando os comandos que citei acima.

Será que alguém sabe de alguma maneira de fazer isso.

Desde já agradeço