Listar diret�rios internos

Question

Ol� precisava indicar um diretorio por exemplo c:\ e listar para dentro de um listbox todos os diretorios que estao dentro do c:\ indicato teria como obrigado...

[b:1c040ebb17][color=red:1c040ebb17]T�tulo editado pelo Moderador (AZ) - Removido: �S� Para os Melhores....!�[/color:1c040ebb17][/b:1c040ebb17]

Marcelo Saviski · Answer

[code:1:0a8216cbef]procedure TForm1.Button2Click(Sender: TObject);var    SR: TSearchRec;    I: integer;beginlistbox1.itens.clear;   I := FindFirst(edit1.text�, faAnyFile, SR);   while I = 0 do       begin       if (SR.Attr and faDirectory) <> faDirectory then          begin          listbox1.itens.add(edit1.text + SR.Name);       end;       I := FindNext(SR);   end;end; [/code:1:0a8216cbef]Isto mostra os arquivos dentro de un diret�rio, pode usar coringas Ex:Edit1.text = �C:/*.exe� localiza todos os .EXE que est�ona pasta C[img:0a8216cbef]//www.apriori.com.br/cgi/forum/images/smiles/icon_eek.gif[/img:0a8216cbef][img:0a8216cbef]//www.apriori.com.br/cgi/forum/images/smiles/icon_cool.gif[/img:0a8216cbef][img:0a8216cbef]//www.apriori.com.br/cgi/forum/images/smiles/icon_rolleyes.gif[/img:0a8216cbef]...

Anonymous · Answer

ol� desculpa mas a resposta anterior so listou os arquivos preciso que liste todos os diretorios.. do diretorio indicado... obrigado......

Fred · Answer

Porque voce nao usa os componentes da palheta �samples� la tem componentes para listagem de diretorios 8)...

Lfernandos · Answer

Basta vc combinar os DDL_* com o operador or para obter o q deseja.

ListBox1.Perform(LB_DIR ,
DDL_ARCHIVE or
DDL_DIRECTORY or
DDL_DRIVES or
DDL_EXCLUSIVE or
DDL_HIDDEN or
DDL_READONLYor
DDL_READWRITE or
DDL_SYSTEM,
LParam(PChar(�c:\*.*�)));

Marconi · Answer

Desculpe voltar no assunto ap�s 7 meses, mas estava pesquisando sobre como fazer um filescan nos meus diret�rios e acabei encontrando estas mensagens.

N�o entendi aonde eu coloco o codigo do LFernandoS para que funcione o programa. Deu na mesma.

MARCONI

Fabioss · Answer

Este c�digo resolve so o problema da lista de diret�rios;

procedure TForm1.ListaDir(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
   I := FindFirst( [caminnho] +�*.*�, faDirectory, SR);
   While I = 0 Do
     Begin
     If (SR.Name <> �.�) and (SR.Name <> �..�) Then
            Memo1.Lines.Add(SR.Name);
      I := FindNext(SR);
   End;
end;

F�rum Listar diret�rios internos #145197