Como copiar um diret�rio e todo seu conteudo?

Question

Ol� pessoal como fa�o pra copiar um diret�rio e todo seu conteudo (incluindo arquivos e subdiret�rios), para outra pasta? Eu uso delphi 5.Valew!!!...

Bilouro · Answer

[quote:9d2d2311c8=�JC�]Ol� pessoal como fa�o pra copiar um diret�rio e todo seu conteudo (incluindo arquivos e subdiret�rios), para outra pasta? Eu uso delphi 5.Valew!!![/quote:9d2d2311c8]rapidamente?!?usa winexec e xcopy...[]�s...

Jc · Answer

[quote:4c5e5f71b5=�Bilouro�]rapidamente?!?usa winexec e xcopy...[]�s[/quote:4c5e5f71b5]????? Como eu uso com o Delphi 5 ????Quero fazer um programa em Delphi que fa�a isso pra mim !!!!...

Bilouro · Answer

TENTEI ISSO MAS N�O CONSEGUI: ALGUEM AJUDE!!!!  WinExec(�XCOPY /Y/E C:SCH D:�,SW_HIDE);Acho que vai ter que ser pelo delphi mesmo......

Ageualves · Answer

Tente Isso:-----------procedure TForm1.Button2Click(Sender: TObject);var  SR: TSearchRec;  I: integer;  Origem, Destino: string;begin  I := FindFirst(�c:Origem*.*�, faAnyFile, SR);  while I = 0 do begin  if (SR.Attr and faDirectory) <> faDirectory then begin  Origem := �c:Origem� + SR.Name;  Destino := �c:Destino� + SR.Name;  if not CopyFile(PChar(Origem), PChar(Destino), true) then  ShowMessage(�Erro ao copiar � + Origem + � para � + Destino);  end;  I := FindNext(SR);  end;end;Observa��esNo 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....

Thiagopedro · Answer

[quote:8a3160b4fe=�Bilouro�]TENTEI ISSO MAS N�O CONSEGUI: ALGUEM AJUDE!!!!  WinExec(�XCOPY /Y/E C:SCH D:�,SW_HIDE);Acho que vai ter que ser pelo delphi mesmo...[/quote:8a3160b4fe]colega se n�o me falha a mem�ria os par�metros do xcopy devem ser usados depois do local de origem e destino.consulte no cmd: xcopy /?...

F�rum Como copiar um diret�rio e todo seu conteudo? #146723