Copiar Arquivos, pastas e subdiret�rios

Pessoal, abaixo vou postar o fonte de um procedimento para c�pia de v�rios arquivos, inclusive � poss�vel utilizar esse procedimento para copiar arvores de arquivos, por exemplo, uma pasta e seus subdiret�rios. Iremos utilizar uma estrutura do windows:
TShFileOpStruct que permite a configuraç�o de par�metros a fim de executar operaç�es com arquivos.


  
  procedure Tfrmlista.CopiarDirImagens(DirOrigem, DirDest: String);
  var
    ShFileOpStruct : TShFileOpStruct; 
  begin
    FillChar(ShFileOpStruct,Sizeof(TShFileOpStruct),0);
    with ShFileOpStruct do begin
      Wnd := Application.Handle;
      wFunc := FO_COPY; {Parametro de c�pia do arquivo ou pasta}
      pFrom := PChar(DirOrigem +#0); {diret�rio origem}
      pTo := PChar(DirDest + #0); {diret�rio  destino}
      fFlags := FOF_ALLOWUNDO or FOF_SIMPLEPROGRESS or FOF_NOCONFIRMATION;
    end;
    try
    ShFileOperation(ShFileOpStruct);
    except
      on E : Exception do
        ShowMessage(' Houve um erro na c�pia das imagens: ' + E.Message);
    end;
  end;

Qualquer d�vida, ou sugest�o de melhoria, por favor postem um coment�rio. =)
No meu pr�ximo post irei mostrar como percorrer os arquivos e diret�rios de uma pasta para uma inserç�o personalizada.

Copiar Arquivos, pastas e subdiret�rios - Delphi

Veja neste artigo como copiar arquivos, pastas e subdiretórios utilizando estrutura do windows.

Artigos relacionados