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..

Empezado por MaMu

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..

Empezado por 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.

[ecfisa]

Gracias ingmichel , me alegro que te sirviera.


Saludos.