Varrer um diretório.... Como Fazer?

Delphi

18/12/2003

Tenho uma dúvida...
Queria saber como faço para varrer um diretório, saber quais arquivo estão dentro do mesmo, arquivos de uma extensão pré - definida, por exemplo txt. Alguem sabe com fazer? Acho não deve ser muito dificil....


Daniels10

Daniels10

Curtidas 0

Respostas

Cebikyn

Cebikyn

18/12/2003

Use este procedimento:

procedure GetAllFiles(mask: string);
var
  search   : TSearchRec;
  directory: string;
begin
  directory := ExtractFilePath(mask);

  if FindFirst(mask, $23, search) = 0 then begin
    repeat
      ListBox1.Items.Add(directory + search.Name); // <--
    until FindNext(search) <> 0;
  end;

  if FindFirst(directory + ´*.*´, faDirectory, search) = 0 then begin
    repeat
      if((search.Attr and faDirectory)=faDirectory)and(search.Name[1]<>´.´)then
        GetAllFiles(directory + search.Name + ´\´ + ExtractFileName(mask));
    until FindNext(search) <> 0;
    FindClose(search);
  end;
end;

Note que na linha marcada ocorre a manipulação dos arquivos, no caso, os arquivos são colocados em um ListBox.

Exemplo:

GetAllFiles(´C:\Textos\*.txt´);



GOSTEI 0
Daniels10

Daniels10

18/12/2003

Muito Obrigado..


GOSTEI 0
POSTAR