Fórum Socorro! Copiar diretório completo e seus subdiretórios... #181231

Boa tarde companheiros..
Vejam se podem me ajudar...


Como faço para copiar uma pasta completa com os arquivos e todos os subdiretorios da mesma, que por sua vez também possuem arquivos.

Vejam o que estou utilizando, mas não está copiando os subdiretórios.
Copia somente os arquivos da pasta principal.
Preciso das subpastas. O que fazer?

var
SR: TSearchRec;
I : integer;
Origem, Destino: string;
begin
I := FindFirst(´c:\Prl\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := c:\Prl\´ + SR.Name;
Destino := ´E:\Prl\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), False) then
Begin
ShowMessage(´Erro ao copiar!´ + Origem + ´ para ´ + Destino);
End;
end;
I := FindNext(SR);
End;


Obs: Utilizando o código acima a cópia é feita perfeitamente, apenas copiando os arquivos da pasta c:\prl para o cd. Até aí tudo bem. mas dentro da pasta PRL tenho mais 4 subdiretorios que não estão sendo copiados.


Alguém me ajuda?
Se puderem me ajudar ficarei muito grato.
Um grande abraço a todos...

Pablo - Marília/SP