Fórum funçao que verifica qntos arquivos tem em uma pasta.... #227878

26/04/2004

0

Delphi

alguem ae tem alguma funçao que verifique qntos arquivos começados com teste_ tem dentro de uma pasta ..

ex: na pasta tem

teste_1.jpg
teste_2.jpg
teste_3.mp3

ele retorna 3 .. referente a quantidade de arquivos q começa com teste_

valeuz! :)


Salsa

Salsa

Responder

Posts

26/04/2004

Rômulo Barros

Aqui no site, tem algo a respeito. vá na sessão artigos e verifique 8)


Responder

Gostei + 0

27/04/2004

Salsa

eita cara nao axei nao ... :/


ninguem ae tem essa funçao?


Responder

Gostei + 0

27/04/2004

Fabio.hc

Tente assim:

function ContaArquivo(Pasta, Nome:string):integer;
var
   Rec : TSearchRec;
   Procura, Contador:integer;
begin
   Contador:=0;
   procura:=SysUtils.FindFirst(Pasta+Nome,faAnyFile, Rec);
   Contador:=0;
   while procura = 0 do
      begin
      inc(Contador);
      procura:=SysUtils.FindNext(Rec)
      end;
   SysUtils.FindClose(Rec);
   Result:=Contador;
end;


e para chamar:

procedure TForm1.Button1Click(Sender: TObject);
begin
   Edit1.Text:=IntToStr(ContaArquivo(´C:\´,´teste*´));
end;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar