Fórum Script Brasil > Copiar Uma Pasta Para Outro Lugar

Versão Completa: Copiar Uma Pasta Para Outro Lugar

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

Davis Tome

29/03/2006 - 07:49

Estou usando este codigo pra copiar arquivos de um lugar para o outro, mas como faço para copiar a pasta inteira em vez de arquivos?

CODE

var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst('c:\teste.txt', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := 'c:\' + SR.Name;
Destino := 'd:\' + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), false) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end;

obrigado!!!!

s3c

29/03/2006 - 08:48

Olá colega; pela função CopyFile vc não consegue copiar pastas.
Utilize a função SHFileOperation:

CODE

uses ShellApi;
var SH:SHFILEOPSTRUCT;
begin
FillChar(SH, SizeOf(SH), 0);
SH.Wnd := Handle;
SH.wFunc := FO_Copy;
SH.pFrom := 'Caminho da pasta origem' + #0;
SH.pTo := 'Caminho da pasta destino' + #0;
SHFileOperation(SH);
end;

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.