Rodrigo,
Veja se esta função te ajuda:
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 //
Diretorio ou SubDiretorio
//-- 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:
MinhaStringList := LocalizaArquivos('c:\mp3\','*.mp3');
Rubem Nascimento da Rocha escreveu:
> Relate quais são essas formas que vc tentou e não deram certo. Pra que a
> gente possa te ajudar.
> Sds.
>
>
>
>> From: "Rodrigo Ribeiro" <[EMAIL PROTECTED]>
>> Reply-To: delphi-br@yahoogrupos.com.br
>> To: delphi-br@yahoogrupos.com.br
>> Subject: [delphi-br] Busca arquivos mp3
>> Date: Sat, 18 Mar 2006 15:49:58 -0000
>>
>> Boa tarde galera...
>> Gostaria de saber como eu faço para buscar arquivos *.mp3 que possam
>> estar espalhados por 1 ou + hd's?
>> Tipo eu tentei usar várias formas, mas, nenhuma funcionou!!
>> Desde já agradeço...
>> Abraços a todos
>>
--
<<<<< 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]
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:
http://br.yahoo.com/info/utos.html
