funçao que verifica qntos arquivos tem em uma pasta....

Delphi

26/04/2004

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

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

26/04/2004

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


GOSTEI 0
Salsa

Salsa

26/04/2004

eita cara nao axei nao ... :/


ninguem ae tem essa funçao?


GOSTEI 0
Fabio.hc

Fabio.hc

26/04/2004

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;



GOSTEI 0
POSTAR