Quantidade de arquivos com a mesma extensão

Delphi

15/04/2004

Olá pessoal td bem?

Pessoal gostaria de saber como faz pra saber q quantidade de arquivos de uma só extensão tem dentro de uma pasta, por exemplo, qunatos arquivos .TXT ou .JPG tem dentro da minha pasta c:\teste\
Alguém sabe fazer isso??

Obrigado pela atenção


Salvati

Salvati

Curtidas 0

Respostas

Lipsil

Lipsil

15/04/2004

Kra, é simples

var
Rec : TSearchRec;
conta: integer;
begin
conta=0;
if SysUtils.FindFirst(´c:\teste\*.txt´,faAnyFile, Rec) = 0 then
  begin
    repeat
conta=conta+1;
memo1.lines.add(conta+´) ´+rec.name);
     until SysUtils.FindNext(Rec) <> 0;
  end;
       SysUtils.FindClose(Rec);

kra, acho q é por aí.....

vlw!


GOSTEI 0
Salvati

Salvati

15/04/2004

Obrgado
Mas estou tendo um problema nas aspas simples do código abaixo:
memo1.lines.add(conta+´) ´+rec.name);
Naum consegui arrumá-la tá dando erro atrás de erro...
o q pode ser??

Obrigaod pela atenção


GOSTEI 0
Lucas Silva

Lucas Silva

15/04/2004

Tenta isso daí
memo1.lines.add(conta+´ ´+rec.name);



GOSTEI 0
Salvati

Salvati

15/04/2004

Obrigado
mas esse ainda está dando erro...
se alguém souber como faz pra funcionar agradeço..
e por favor me expliquem o pq desse sinal de + eu naum entendi muito bem..


Obrigado pela atenção


GOSTEI 0
Eduardo Diniz

Eduardo Diniz

15/04/2004

Tenta isso :

memo1.lines.add(IntToStr(conta) + ´ ´ + rec.name);


GOSTEI 0
Lipsil

Lipsil

15/04/2004

[quote:2b02b1aa62=´Eduardo Diniz´]Tenta isso :

memo1.lines.add(IntToStr(conta) + ´ ´ + rec.name);[/quote:2b02b1aa62]

é esse mesmo kra.. me esqueci de transformara a integer conta em uma string.

Valew


GOSTEI 0
POSTAR