Fórum Arquivos #208974
23/01/2004
0
Olá!!!
Como faço para ´listar´ os arquivos de uma determinada pasta em um ListBox(ou coisa parecida)?
Por exemplo: Num programa declarei o FILECTRL e no evento OnCLick de
um Botão coloquei esse código:
SelectDirectory(´Selecione o diretório´,´´,dir);
até aqui blz, agora, gostaria de colocar, em um ListBox, os arquivos que estão dentro desse diretório escolhido.
T+ :wink:
Como faço para ´listar´ os arquivos de uma determinada pasta em um ListBox(ou coisa parecida)?
Por exemplo: Num programa declarei o FILECTRL e no evento OnCLick de
um Botão coloquei esse código:
SelectDirectory(´Selecione o diretório´,´´,dir);
até aqui blz, agora, gostaria de colocar, em um ListBox, os arquivos que estão dentro desse diretório escolhido.
T+ :wink:
Celo-faveri
Curtir tópico
+ 0
Responder
Posts
23/01/2004
Cebikyn
Você pode fazer assim:
ou assim:
var
D: PChar;
begin
D := ´C:\*.*´;
SendMessage(ListBox1.Handle,
LB_DIR,
DDL_ARCHIVE +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(D));
end;ou assim:
procedure ListFileDir(Path: string; FileList: TStrings);
var
SR: TSearchRec;
begin
if FindFirst(Path + ´*.*´, faAnyFile, SR) = 0 then
begin
repeat
if (SR.Attr <> faDirectory) then
begin
FileList.Add(SR.Name);
end;
until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListFileDir(´C:\WINDOWS\´, ListBox1.Items);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)