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
beginWnd := 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
