Copiar Vários Arquivos!

[net32 1]

Bom pessoal estou querendo fazer um programa simples, mas que apartir de uma lista, vamos dizer no memo, ou de um TXT, a lista seria assim:

 

J:\TODAS AS MUSICAS\PASTA1\ultramen - e proibido(1).mp3

J:\TODAS AS MUSICAS\HOUSE\Ultramen com Falcao(Rappa) - Divida.mp3

J:\TODAS AS MUSICAS\DANCE\vem andar comigo(2).mp3

J:\TODAS AS MUSICAS\OUTRAS\will i am - i got it from my mama -hq--thetinmanhasit com-(2).mp3

J:\TODAS AS MUSICAS\BANDA010203\Will i am_-_i_got_it_from_my_momma_buddhabuser_remix.mp3

J:\TODAS AS MUSICAS\SUBPASTA\Will.i.am - One More Chance.mp3

 

Então apartir dessa lista gostaria que o Delphi trata-se cada linha como um arquivo a ser copiado para vamos dizer C:\PASTA-NOVA\

 

 

Vlw, fico no aguardo!

[Daniel Oliveira_ 0]

Bom pessoal estou querendo fazer um programa simples, mas que apartir de uma lista, vamos dizer no memo, ou de um TXT, a lista seria assim:

 

J:\TODAS AS MUSICAS\PASTA1\ultramen - e proibido(1).mp3

J:\TODAS AS MUSICAS\HOUSE\Ultramen com Falcao(Rappa) - Divida.mp3

J:\TODAS AS MUSICAS\DANCE\vem andar comigo(2).mp3

J:\TODAS AS MUSICAS\OUTRAS\will i am - i got it from my mama -hq--thetinmanhasit com-(2).mp3

J:\TODAS AS MUSICAS\BANDA010203\Will i am_-_i_got_it_from_my_momma_buddhabuser_remix.mp3

J:\TODAS AS MUSICAS\SUBPASTA\Will.i.am - One More Chance.mp3

 

Então apartir dessa lista gostaria que o Delphi trata-se cada linha como um arquivo a ser copiado para vamos dizer C:\PASTA-NOVA\

 

 

Vlw, fico no aguardo!

 

Olá,

 

A solução que você quer não é difícil e sim trabalhosa.

Um exemplo que tenho em mãos é este:

 

procedure TForm1.BitBtn1Click(Sender: TObject);

var

SR: TSearchRec;

I: integer;

Origem:string;

Destino: string;

patchOrigem:string;

patchDestino:string;

begin

patchOrigem:=ExtractFilePath(Edit1.Text);

patchDestino:=ExtractFilePath(Edit2.Text);

I:=FindFirst(patchOrigem+'*.*', faAnyFile, SR);

while i = 0 do

begin

if (SR.Attr and faDirectory) <> faDirectory then

begin

Origem:=patchOrigem + sr.Name;

Destino:=patchDestino + sr.Name;

if not CopyFile(PChar(Origem), PChar(Destino), true) then

ShowMessage('Não foi poossível copiar ' + Origem + ' para ' + Destino);

end;

i:=FindNext(SR)

end;

end;

 

Onde eu consigo copiar todos os arquivos de uma pasta para outra.

Tente acoplar a sua necessidade, que quanto eu tiver um tempo tento me aproximar mais à sua real dúvida.

 

[]'s

 

 

[bdexterholland 0]

Nem sei se precisa usar FindFirst e SearchRec, uma vez que ele já tem o path completo para o arquivo, no máximo verifica se o arquivo existe e faz o CopyFile

[net32 1]

aeeee eu consegui hahaha :D

vlw Daniel Oliveira_, abriu minha cabeça consegui fazer o código bem simples vou explicar caso mais alguem queira fazer o mesmo:

 

Adicionar:

TMemo
TEdit
TButton

 

Beleza ai colocando no Form, ajeite como quiser e coloque o evento OnClick no Button1, segue source:

 

procedure TForm1.Button1Click(Sender: TObject);
var
Origem:string;
Destino:string;
i : Integer;
begin
for i := 0 to Memo1.Lines.Count -1 do
begin
Origem:=Memo1.Lines[i];
Destino:=Edit1.Text+ExtractFileName(Memo1.Lines[i]);
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Não foi poossível copiar ' + Origem + ' para ' + Destino);
end;
end;

 

 

Abraço Daniel!

 

Veja como ficou o Form: