Filipe,
Já mandei uma função que faz isto a uns dias atrás !!
Bom ta ai de novo..
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','naoquero*.txt');
ou
MinhaStringList := LocalizaArquivos('c:\teste','*.txt','naoquero*.txt');
[ ]´s
Moacir
Luiz Escobar escreveu:
> ou vc cria uma variavel, ou põe o componente e coloca tipo TOP:=-5000;
> (MENOS CINCO MIL), vai sumir da tela... hehehehhe
>
> Luiz Escobar
>
>
>
> ----- Original Message -----
> From: Filipe Belchior
> To: delphi-br@yahoogrupos.com.br
> Sent: Tuesday, June 06, 2006 2:18 PM
> Subject: [delphi-br] lista de arquivos de uma pasta
>
>
> olá galera,
>
> como eu consigo, de preferência numa "list",
> o nome dos arquivos de uma pasta? para windows
>
> pensei em usar o TFileListBox, mas ele é visual,
> não to precisando visual.. será q existe alguma
> função na unit "Windows"?
>
>
> FILIPE BELCHIOR
>
>
>
> _______________________________________________________
> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e
> anti-spam realmente eficaz.
> http://mail.yahoo.com.br/
>
>
>
>
--
<<<<< 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
