Listar arquivos em txt.

Delphi

20/03/2005

Olá galera!

Preciso fazer um programa que pegue uns arquivos e liste seus nomes em um arquivo de texto.

Se alguem puder me ajudar, agradeço...


Slyavalon

Slyavalon

Curtidas 0

Respostas

Isaque

Isaque

20/03/2005

Uma idéia:

var
  flb_arquivos : TFileListBox;
  dir_arquivos : String;
  i : Integer;
  arq : TextFile;
begin
  dir_arquivos := ´C:\Arquivos´;
  flb_arquivos := TFileListBox.Create;
  flb_arquivos.Parent := Form1;
  flb_arquivos.Visible := False;
  flb_arquivos.Mask   := ´*.dll´;
  flb_arquivos.Directory := dir_arquivos;
  if flb_arquivos.Items.Count > 0 then begin
    AssignFile(arq, ´C:\Arquivos.txt´);
    Rewrite(arq)
    for i := 0 to flb_arquivos.Items.Count - 1 do
      Writeln(arq, flb_arquivos.Items[i]);
    CloseFile(arq)
  end;
end;



GOSTEI 0
Slyavalon

Slyavalon

20/03/2005

Valeu pela ajuda, só tem um probleminha.

Ele não compila, dá a seguinte mensagem de erro:
´Not enough actual parameters´

E aponta para a linha:
´flb_arquivos:= TFileListBox.create;´

Não ternho idéia do que seja...


GOSTEI 0
Fer_nanda

Fer_nanda

20/03/2005

está faltando indicar onde será criado o list box... coloca self
  flb_arquivos := TFileListBox.Create(Self);

Até


GOSTEI 0
Slyavalon

Slyavalon

20/03/2005

Valeu fer_nanda! era só isso que estava falrando!!!

Brigadão.


GOSTEI 0
Slyavalon

Slyavalon

20/03/2005

Bom, com esta rotina, eu tenho que abrir os subdiretórios também.

Teria como eu fazer para indicar uma pasta e automaticamente listar todos os arquivos dos subdiretórios?


GOSTEI 0
POSTAR