Trabajando con archivos

[marto]

Wop!

Mezclando tu algoritmo con el de trucomanía...

Código Delphi [-]
function CuentaArchivos(path: AnsiString): Integer;
var
  srRes : TSearchRec;
  iFound : Integer;
begin
  //nos aseguramos que el path sea más o menos correcto
  if path[Length(path)] <> '\' then
    path := path +'\';
  //
  //Indicamos que queremos todos los archivos en la ruta
  //menos los directorios
  iFound := FindFirst(path+'*.*', faAnyFile-faDirectory, srRes);
  //inicializamos el contador
  Result := 0;
  //mientras haya archivos en el directorio
  while iFound = 0 do
  begin
   //si el archivo no es uno de los especiales (. y ..)
   //incrementeo el contador
   if ( srRes.Name <> '.' ) and ( srRes.Name <> '..' ) and ( srRes.Name <> '' ) then
     Inc(Result);
   //paso al siguiente archivo
   iFound := FindNext(srRes);
  end;
  //cierro la busqueda
  FindClose( srRes );
end;

Si te fijas, he quitado la parte recursiva (que te podría servir si quieres contar los archivos que hay en subcarpetas) y, en lugar de añadir los nombre a una stringlist, los he contado

[!3d1@n]

Siiiiiiiiiiiiiiiiiiiiiip ... Ahora si ... Mil gracias, era eso justo lo que queria.

Nota : Por cierto me gustaría saber como crear funciones y modificarlas.¿Será muy dificil? ¿Que me aconsejas? Sabes donde puedo obtener algunos manuales, tutoriales, o algo similar por donde guiarme ??? Mi correo es [email protected]
De todas formas les agradezco a todos... y en especial a Marto.

[marto]

Empezado por !3d1@n

Nota : Por cierto me gustaría saber como crear funciones y modificarlas.¿Será muy dificil? ¿Que me aconsejas? Sabes donde puedo obtener algunos manuales, tutoriales, o algo similar por donde guiarme ???

Qualquier libro de Delphi... mi preferido es "La cara oculta de delphi", puedes bajarte la version 4 de la web del autor, www.marteens.com o comprarte la 6

Empezado por !3d1@n

Mi correo es [email protected]

En los foros no se contesta a preguntas de manera privada

[!3d1@n]

Gracias a todossssssssssssss ...