Como obter uma lista de arquivos e pastas sem TFileListBox

Delphi

09/06/2005

Prezados,

Como posso ler os diretórios e arquivos de um disco sem os TFileListBox e TDirectoryListBox ? Há algum lugar onde se possa ler a lista de arquivos e pastas diretamente do disco ou por outros meios ? Obrigado.


Amjorge

Amjorge

Curtidas 0

Respostas

Massuda

Massuda

09/06/2005

procedure ListarArquivos(const Path: string; const Lista: TStrings); 
var 
  Search: TSearchRec; 
  Done: Boolean; 
begin 
  Done := FindFirst(Path + ´\*.*´, faAnyFile, Search) <> 0; 
  while not Done do begin 
    if (Search.Attr and faDirectory) = faDirectory then begin 
      if (Search.Name <> ´.´) and (Search.Name <> ´..´) then begin 
        ListarArquivos(Path + ´\´ + Search.Name, Lista); 
      end; 
    end 
    else begin 
      Lista.Add(Path + ´\´ + Search.Name); 
    end; 
    Done := FindNext(Search) <> 0; 
  end; 
end;



GOSTEI 0
Massuda

Massuda

09/06/2005

Código...
Desculpe... dei enviar por engano e ficou faltando o mais importante, a explicação.

Esse código (exemplo) pode ser usado para preencher um TStringList com a lista dos arquivos presentes em um diretório e em seus subdiretórios. Adapte para suas necessidades.


GOSTEI 0
Amjorge

Amjorge

09/06/2005

Obrigado.


GOSTEI 0
POSTAR