Fórum Como faço pra copiar arquivos de uma pasta para outra? #219891

11/03/2004

0

Boa tarde gente,

Gostaria que(se possivel) alguem me explica-se como faço para copiar todos os itens de uma pasta para outra.

Exemplo:

Temos a Pasta1 e Pasta2

quero copiar todos os arquivos.lnk da pasta Pasta2 para a Pasta1.


Obs. mas, pode ser que na pasta 1 haja arquivo com o mesmo nome do que tem na aspata2, dai, queria que jogasse por cima.


Amandinha

Amandinha

Responder

Posts

11/03/2004

Amandinha

ou entao, deleto todos os itens da pasta1 e copio os itens da pasta2 pra pasta1.

sou estou precisando disto..



obrigada...


Responder

Gostei + 0

11/03/2004

Lucas Silva

Usa a função [b:62c40959a3]CopyFile[/b:62c40959a3]


Responder

Gostei + 0

11/03/2004

Amandinha

eu quero copiar todos os atalhos da Pasta2 para a Pasta1..

como farei isso usando o CopyFile??

copyfile(´pasta2´, ´pasta1´, true); ????


Responder

Gostei + 0

11/03/2004

Vieira_alex

Tente fazer assim.....


procedure TForm1.btCopiaArquivoClick(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(´c:\Sistema\*.doc´, faAnyFile, SR); // Local de Origem
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := ´c:\Sistema\´ + SR.Name;
Destino := ´c:\Teste\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end;
I := FindNext(SR);
end;
end;

********

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.


Não esqueça de declarar FileCtrl na USES da UNIT.


Espero ter ajudado....


Responder

Gostei + 0

11/03/2004

Vinicius2k

Amandinha,

Esta e algumas outras funções para manipulação de arquivos vc encontra no site da revista ClubeDelphi, na seção ´Dicas e Macetes´... http://www.clubedelphi.com.br/dicamacete/copicur.html

Vale a pena conferir...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar