Solução:
Usar Api do Windows.
Uses ShellApi;
function CopiaDirs(DirFonte,DirDest : String) : Boolean;
var ShFileOpStruct : TShFileOpStruct;
begin Result := False;
if DirFonte = '' then
raise Exception.Create('Diretório fonte não pode ficar em branco');
if DirDest = '' then
raise Exception.Create( 'Diretório destino não pode ficar em
branco');
if not DirectoryExists(DirFonte) then
raise Exception.Create('Diretório fonte inexistente');
DirFonte := DirFonte+#0; DirDest := DirDest+#0;
FillChar(ShFileOpStruct,Sizeof(TShFileOpStruct),0);
with ShFileOpStruct do
begin Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := PChar(DirFonte);
pTo := PChar(DirDest);
fFlags := FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION;
end;
ShFileOperation(ShFileOpStruct);
end;
Levi
_____
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de FILIPE - GURU
Enviada em: quinta-feira, 15 de setembro de 2005 17:28
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Copiar pasta inteira
pelo q sei, soh copiando arquivo por arquivo...
----- Original Message -----
From: "Levi Ribeiro de Freitas" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Thursday, September 15, 2005 5:16 PM
Subject: [delphi-br] Copiar pasta inteira
Pessoal,
Alguém sabe como faço para copiar uma pasta inteira pelo delphi, sem
precisar copiar arquivo po arquivo?
Atenciosamente,
Levi Ribeiro de Freitas
Programador de Computadores
<mailto:[EMAIL PROTECTED]>
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/br/ads6/160905_pop_celsamsung_camdig.gi
f>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
