Contar archivos

[MaMu]

Como puedo hacer para contar los archivos que contiene un directorio cualquiera? Hay alguna funcion que me devuelva en un integer ese valor?

Saludos y Gracias

[Vyckso]

Buenas tardes mamu

El truco nº 15 de la lista de trucos, gracias a David, te duelve en un tstrings los archivos de un determinado directorio con una determinada máscara.

Puedes usar el count del TStrings para determinar el número de archivos en el directorio.

Espero que te haya servido de ayuda.:)

Salu2

[MaMu]

SOLUCIONADO

Gracias por la respuesta, me oriento bastante, pero opte por otra solucion.

Saludos

[ingmichel]

hola mamu cual fue la solucion que implementaste ? necesito lo mismo k tu, gracias de antemano..

SOLUCIONADO

Gracias por la respuesta, me oriento bastante, pero opte por otra solucion.

Saludos

[ecfisa]

Hola ingmichel.

Una posibilidad es:

function NroArchivos(const Ruta: string): Integer;
var
SRec: TSearchRec;
Attr, re: Integer;
begin
Result:= 0;
Attr:= faSysFile + faAnyFile + faArchive + faHidden + faReadOnly;
re:= FindFirst(Ruta + '*.*' , Attr, SRec);
while re = 0 do
begin
Inc(Result);
re:= FindNext(Srec);
end;
end;


Llamada:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(NroArchivos('C:\')));
end;


Nota: Al parámetro "Ruta" hay que terminarlo con '\', por: Ruta + '*.*'
Saludos.

[ingmichel]

gracias hermano, probe tu funcion y funciona perfecto, k dios te bendiga..


Hola ingmichel.

Una posibilidad es:

function NroArchivos(const Ruta: string): Integer;
var
SRec: TSearchRec;
Attr, re: Integer;
begin
Result:= 0;
Attr:= faSysFile + faAnyFile + faArchive + faHidden + faReadOnly;
re:= FindFirst(Ruta + '*.*' , Attr, SRec);
while re = 0 do
begin
Inc(Result);
re:= FindNext(Srec);
end;
end;
Llamada:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(NroArchivos('C:\')));
end;
Nota: Al parámetro "Ruta" hay que terminarlo con '\', por: Ruta + '*.*'
Saludos.

[ecfisa]

Gracias ingmichel :), me alegro que te sirviera.


Saludos.