Listar os nomes das pastas de de diret�rio?

Question

Preciso listar o conteudo de um pasta...dentro de [b:b3a7611525]c:apachemysqldata[/b:b3a7611525] tenho as seguintes pastas:bloco-10-10-1-0-24bloco-10-10-2-0-24bloco-10-10-3-0-24bloco-200-195-24-0-2...

Ipc$ · Answer

[code:1:afa0997c20]var sr:TSearchRec;begin  if FindFirst(�c:apachemysqldata *.*�, faAnyFile, sr) = 0 then    Repeat      if ((sr.Attr and $10) > 0) and         (Pos(�BLOCO�, UpperCase(sr.Name)) = 1) then        ShowMessage(sr.Name); // pasta selecionada     Until FindNext(sr) <> 0;  FindClose(sr);end;[/code:1:afa0997c20]...

Redoctober · Answer

[quote:673c993ac0=�IPC$�][code:1:673c993ac0]var sr:TSearchRec;begin  if FindFirst(�c:apachemysqldata *.*�, faAnyFile, sr) = 0 then    Repeat      if ((sr.Attr and $10) > 0) and         (Pos(�BLOCO�, UpperCase(sr.Name)) = 1) then        ShowMessage(sr.Name); // pasta selecionada     Until FindNext(sr) <> 0;  FindClose(sr);end;[/code:1:673c993ac0][/quote:673c993ac0]Ol� IPC$,N�o consegui rodar conforme o esperado!Preciso que ele imprima o nome de todas as pastas que contenha a palavra bloco no nome :(...

Tatuweb · Answer

Tente assim:[code:1:5806785fa6]procedure FindFolder (const Path: String; List: TStrings) ;var   Res: TSearchRec;   EOFound: Boolean;begin   EOFound:= False;   if FindFirst (Path, faDirectory, Res) < 0 then     Exit   else     while not EOFound do     begin       if Res.Attr = faDirectory then List.Add(Res.Name) ;       EOFound:= FindNext(Res) <> 0;     end;   FindClose(Res) ;end;[/code:1:5806785fa6]Para usar:[code:1:5806785fa6]FindFolder (�c:apachemysqldatabloco*� , Listbox1.items);[/code:1:5806785fa6]...