Ai esta, bom uso.
Inclua a unit SysUtils
==============================================================
Function LocalizaArquivos(FromDir : String='' ;
Mascara : String='' ;
excluir : String=''): TStrings;
var
SearchRec: TSearchRec;
SearchResult: integer;
sArquivos : TStrings;
sExtensao : String;
begin
If excluir<>'' then
excluir:=UpperCase(excluir);
if (FromDir<>'') and
(FromDir[Length(FromDir)] <> '\') then
FromDir:= FromDir + '\';
SearchResult := FindFirst(FromDir + Mascara, faAnyFile,SearchRec);
sArquivos :=TStringList.Create;
sArquivos.Clear;
while (SearchResult = 0) do
begin
if (SearchRec.Attr and faDirectory) = faDirectory then
//-- Faz Nada !!
else
begin
If excluir<>'' then
Begin
sExtensao:=StringReplace(ExtractFileExt(SearchRec.Name),
'.', '',[rfReplaceAll]);
If Pos(UpperCase(sExtensao),excluir)=0 then
sArquivos.Add(SearchRec.Name);
end
else
sArquivos.Add(SearchRec.Name);
end;
SearchResult := FindNext(SearchRec);
end;
SysUtils.FindClose(SearchRec);
Result:=sArquivos;
end;
Ex. de Uso:
Memo.Lines:=LocalizaArquivos('c:\teste','*.txt','teste*.txt');
[ ]´s
Moacir
JGodoi escreveu:
> Observação: mensagem anexa encaminhada.Pessoal,
>
> Estou prescisando listar em um memo os arquivos de um
> diretorio, incuindo os sub diretorios.
>
> Tentei desenvolver e pesquisei mas não encontrei uma
> função que funcione com os subdiretorios.
>
> Alguem que já tenha feito isso poderia me ajudar me
> enviando um exemplo ou uma função que retorne o path
> completo dos arquivos de um dir e subdirs?
>
> Grato
>
> JGodoi
> [EMAIL PROTECTED]
>
>
>
>
>
>
>
>
>
> _______________________________________________________
> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
> http://br.info.mail.yahoo.com/
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
| Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
