Fórum Listar arquivos em txt. #273253
20/03/2005
0
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
Curtir tópico
+ 0Posts
21/03/2005
Isaque
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
23/03/2005
Slyavalon
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
23/03/2005
Fer_nanda
flb_arquivos := TFileListBox.Create(Self);
Até
Gostei + 0
23/03/2005
Slyavalon
Brigadão.
Gostei + 0
24/03/2005
Slyavalon
Teria como eu fazer para indicar uma pasta e automaticamente listar todos os arquivos dos subdiretórios?
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)