Re: [delphi-br] Nome dos arquivos de uma pasta

[Prisma Sistemas - Moacir]

Filipe,

Acredito que a função a baixo resolva o teu problema:

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;


[ ]´s
Moacir

----- Original Message ----- 
From: "Filipe" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, September 28, 2004 1:56 PM
Subject: Re: [delphi-br] Nome dos arquivos de uma pasta


var
  str, res: string;
  len, i: integer;

begin


  str := {nome do arquivo};
  len := length(str);
  res := '' ;
  for i := 1 to len do
    begin
      res := res + str[i];
      if str[i] = '.' then
        res := '';
    end;

  //res vai retornar o nome da extensão.

  ----- Original Message ----- 
  From: Hélton Ribeiro Nunes
  To: [EMAIL PROTECTED]
  Sent: Tuesday, September 28, 2004 1:07 PM
  Subject: [delphi-br] Nome dos arquivos de uma pasta


  Ola pessoal

  estou precisando pegar o nome dos arquivos de uma determinada pasta q
  possuam determinadas extensões e coloca-las em um Memo, alguem pode me
ajudar?

  []´s





-- 
<<<<< 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] ou [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