Copiar pasta

[Delphi_852]

Boa Tarde,

Alguém poderia dar-me uma ideia de como fazer para copiar uma pasta completa, que pode conter ficheiros e subpastas, mostrando o progresso da cópia numa progressbar do delphi?

 

Obrigado,

[M6]

Podes fazer isso contando os ficheiros e/ou o seu tamanho total e depois, quando copias, vais progredindo de acordo com o número de ficheiros ou KBs copiados (depende de como faças a cópia).

Pesquisa na API do Windows, é capaz de haver algo por lá que te dê o número de ficheiros e/ou o tamanho do que queres copiar recursivamente.

[Kline777]

Podes usar esta função que fiz para devolver um TStringlist com a lista de ficheiros dentro de uma pasta

 

function ListFileDir(Path,Ext: string;OnlyTopFolder:boolean; var FileList: TStringList):boolean;
var
  SR: TSearchRec;
begin
  result:=false;
  if DirectoryExists(path) then
  Begin
    result:=true;
    if FindFirst(Path + '*'+Ext, faAnyFile, SR) = 0 then
    begin
      repeat
        FileList.Add(Path+SR.Name);
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;

    if not OnlyTopFolder then
      if FindFirst(Path+'*' , faDirectory, SR) = 0 then
      begin
        repeat
          if (SR.Name<>'..') and (SR.Name<>'.') then
            ListFileDir(Path+SR.Name+'\',ext,OnlyTopFolder,FileList);
        until FindNext(SR) <> 0;
        FindClose(SR);
      end;
  end;
end;

 

Basicamente passas o caminho e extensão de ficheiros que queres e passas uma TStringList por referência.

Depois é uma questão de correres a TStringList a copiar os ficheiros e a mostrar numa TProgressBar

Edited September 14, 2016 at 02:00 PM by Kline777