Pesquisar no Programero

quinta-feira, 4 de junho de 2009

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios.
No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos.
procedure TForm1.Button1Click(Sender: TObject);
begin
  tamanhoTotal := 0;
  memLista.Lines.Clear;
  ListarArquivos(edtDiretorio.Text, chkSub.Checked);
  Edit1.Text := IntToStr( tamanhoTotal );
end;
procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean);
var
  F: TSearchRec;
  Ret: Integer;
  TempNome: string;
begin
  Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);
  try
    while Ret = 0 do
      begin
        if TemAtributo(F.Attr, faDirectory) then
          begin
            if (F.Name <> '.') And (F.Name <> '..') then
              if Sub = True then
                begin
                  TempNome := Diretorio+'\' + F.Name;
                  ListarArquivos(TempNome, True);
                end;
          end
        else
          begin
            memLista.Lines.Add(Diretorio+'\'+F.Name);
            tamanhoArquivo( Diretorio+'\'+F.Name );
          end;
        //
        Ret := FindNext(F);
      end;
  finally
    begin
      FindClose(F);
    end;
  end;
end;

function TForm1.TemAtributo(Attr, Val: Integer): Boolean;
begin
  Result := Attr and Val = Val;
end;
procedure TForm1.tamanhoArquivo(Arq: String);
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(arq, faArchive, SR);
  try
    if I = 0 then
      tamanhoTotal := tamanhoTotal + ( SR.Size );
  finally
    FindClose(SR);
  end;
end;

Baixe o exemplo completo aqui.

8 comentários:

  1. bom venho aqui convidar vc a dar uma passada no meu blog:

    www.historiaspormd.blogger.com.br

    estou escrevendo uma história e postando nele...

    qm sab vc naum se interesse...
    comente oq achou...
    obrigada!

    ResponderExcluir
  2. Oi Du,
    Sabe, tenho um problema muito grande, lí seu post, achei muito bacana, mas não entendi nada, não é que vc não sabe explicar, mas eu é q não entendo nada desse treco.
    Meu, quando crescer quero ser igual a você, e entender tudo sobre essas coisas, q eu nem sei o nome.
    Olha, te admiro, vc é fera, parabéns!
    Susi

    ResponderExcluir
  3. Justamente o que eu procurava, obrigado!

    ResponderExcluir
  4. E ai Evandro, obrigado pelo comentário, abraços...

    ResponderExcluir
  5. Eu também não entendi porque sou noob... nao entendo recursão ainda... Mas mesmo assim obrigado!

    ResponderExcluir
  6. Era exatamente isso que eu procurava e nao achei... de muita valia essa dica.

    ResponderExcluir
  7. Queria saber por que ao invés de usar a função TemAtributo não se usa

    if F.Attr = faDirectory then ...

    Qual seria a diferença?

    ResponderExcluir
  8. Agregaria mais valor se voce adcionasse comentários nós códigos para ficar de fácil entendimento, mas fico muito bom =D

    ResponderExcluir

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.