Leer y contar todos los achivos

[Casimiro Notevi]

Tal y como dice jorge82, "esta función recorre el directorio pasado como parámetro"

A ambos, buscad en clubdelphi, arriba está la opción "Buscar".
Una pista: las funciones son FindFirst y FindNext

[Delfino]

Probaste el componente TJvSearchFiles de la suite open source JVCL?

[Pedro-Juan]

Hola, yo lo he resuelto así:

Código Delphi [-]
cPath := Trim(F_Main.DirectoryEdit1.Text) + '\';

//Ejemplo de llamada
Contar(cPath);

procedure Contar(SPath: string);
var R : TSearchRec;
    Busq, nArchivos: Integer;
begin
nArchivos := 0;

  if not DirectoryExists(SPath) then begin
     Application.MessageBox(PChar('No existe la ruta: ' + SPath), 'Error', MB_ICONERROR);
     Exit;
  end;

Busq := FindFirst(SPath + '*.*', FaAnyfile, R);

  while Busq = 0 do begin
        if (R.Attr and faVolumeId <> faVolumeID) and (R.Name <> '.') and (R.Name <> '..') then begin
            if (R.Attr <> faVolumeID) and (R.Attr and faDirectory <> faDirectory) then begin
                Inc(nArchivos);

                // Lo que tengas que hacer

            end;
        end;
        Busq := FindNext(R);
  end;

  SysUtils.FindClose(R);
end;

Lo que a mi me fallaba era la barra de directorio al final de la variable de la ruta pasada como parámetro. Ahora me da el número exacto de archivos en un directorio. Sólo me cuenta los archivos, no los directorios.

Espero que te sirva.

Un saludo.

[ecfisa]

Hola.

Código Delphi [-]
var
 TotalFiles,TotalFolders: LongInt;

procedure TotalFilesFolders(Path:string);
var
  SR: TSearchRec;
begin
  ChDir(Path);
  if FindFirst ('*.*', faDirectory, SR )=0 then
  repeat
    if ((SR.Attr and fadirectory) = fadirectory) then
    begin
       if (SR.Name <> '.') and (SR.Name <> '..') then
       begin
         Inc(TotalFolders);
         TotalFilesFolders(Path + '\' + SR.Name );
       end
    end
    else
      Inc(TotalFiles);
  until FindNext(SR) <> 0;
  FindClose( SR );
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  TotalFiles:= 0;
  TotalFolders:= 0;
  TotalFilesFolders('C:\');
  ShowMessage(Format('Archivos: %d Carpetas: %d',[TotalFiles,TotalFolders]));
end;

Un saludo.