Fórum Quantidade de arquivos com a mesma extensão #226220
15/04/2004
0
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
Curtir tópico
+ 0Posts
16/04/2004
Lipsil
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
16/04/2004
Salvati
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
16/04/2004
Lucas Silva
memo1.lines.add(conta+´ ´+rec.name);
Gostei + 0
16/04/2004
Salvati
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
16/04/2004
Eduardo Diniz
memo1.lines.add(IntToStr(conta) + ´ ´ + rec.name);
Gostei + 0
17/04/2004
Lipsil
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
Clique aqui para fazer login e interagir na Comunidade :)