Foros Club Delphi - Contar archivos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Contar archivos (https://www.clubdelphi.com/foros/showthread.php?t=43845)

MaMu	22-05-2007 16:32:05

Contar archivos

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

22-05-2007 17:26:03

Contar Archivos

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	22-05-2007 18:56:02

SOLUCIONADO

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

Saludos

ingmichel

14-07-2010 00:48:03

saludos

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

Cita:

Empezado por MaMu (Mensaje 202691)

SOLUCIONADO

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

Saludos

ecfisa

14-07-2010 04:24:22

Hola ingmichel.

Una posibilidad es:

Código:

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:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(IntToStr(NroArchivos('C:\')));

end;

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

ingmichel

16-07-2010 01:16:58

genial

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

Cita:

Empezado por ecfisa (Mensaje 370309)

Hola ingmichel.

Una posibilidad es:

Código:

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:

Código:

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(IntToStr(NroArchivos('C:\')));

end;

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

ecfisa

16-07-2010 01:22:12

Gracias ingmichel :), me alegro que te sirviera.

Saludos.

La franja horaria es GMT +2. Ahora son las 18:23:25.