Às vezes precisamos listar arquivos de um diretório para fazer algum processamento nos mesmos. Um exemplo disso seria a importação de dados em arquivos textos para o banco de dados. Pense que para isso seria muito mais fácil informar somente o diretório para que todos os arquivos fossem processados.

Então, mãos à obra. Crie uma nova aplicação no Delphi 7 colocando e configurando os seguintes componentes:

 

Label1: Mude o Caption para “Diretório”;

Edit1: Mude o Name para “edtDiretorio” e apague o Text;

CheckBox1: Mude o Caption para “Incluir Subdiretórios” e o Name para “chkSub”;

Label2: Mude o Caption para: “Arquivos”;

Memo1: Mude o Name para “memLista” e apague a propriedade Lines;

Button1: Mude o Caption para “&Listar”.

 

A aparência do software deve ficar conforme a Figura 1.

Imagem 

Figura 1. Aparência depois de configurado

Clique duas vezes no botão Listar e coloque o seguinte código:

 

memLista.Lines.Clear;

ListarArquivos(edtDiretorio.Text, chkSub.Checked);

 

Esse é código é responsável por limpar o conteúdo do Memo e chamar um procedimento que irá buscar os arquivos contidos em um diretório, levando em conta se o usuário escolheu procurar também nos subdiretórios.

Para criar o procedimento suba o editor de código até a seção Private. Abra um espaço e coloque o seguinte código:

 

procedure ListarArquivos(Diretorio: string; Sub:Boolean);

 

Com o cursor em cima do último código, pressione CTRL+SHIFT+C para que o Delphi crie a estrutura do procedimento. Dentro desse procedimento coloque o seguinte:

 

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);

      end;

        Ret := FindNext(F);

    end;

  finally

  begin

    FindClose(F);

  end;

  end;

 

Veja que o código chamará uma outra função para verificar se o item encontrado é um diretório. Nesse caso, será chamado novamente o procedimento, informando o diretório encontrado. Isso só irá acontecer se na busca for informado para incluir subdiretórios.

Vá até a seção Private e declare a função:

 

function TemAtributo(Attr, Val: Integer): Boolean;

 

Pressione CTRL+SHIFT+C e coloque o código da função:

 

Result := Attr and Val = Val;

 

Pronto, agora você pode testar, informando um diretório.

Imagem 

Figura 2. Software em teste

Pense que, ao invés de colocar o arquivo em um Memo, você pode chamar uma função que leia os arquivos encontrados.