envio de arquivos pela aplicacao

Porque você não pegas umas rotinas de cópia de arquivos na net, colocar dois edit´s no seu form onde um é o path de origem e o outro edit o path de destino, assim coloque um código parecido como o que segue abaixo no botão:
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(´c:\Origem\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := ´c:\Origem\´ + SR.Name;
Destino := ´c:\Destino\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;
Observações

No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!

Os arquivos sairao de uma maquina para outra por dentro da aplicacao cliente servidor. Por isso nao podemos utilizar rotinas de copia do sistema operacional.

Cara, eu tenho um trojan q faz isso, upload e download... dentro outras coisas.
Ele trabalha com client/server, e utiliza componentes fastnet.

Email-me q mando os fontes,

ravix@ig.com.br

Falow,

Caninha51