Trabajando con archivos

[marcoszorrilla]

Me temo que Marto se refería al truco 158.

Un Saludo.

[!3d1@n]

OK , Luego les comento ...
Gracias !!!

[marto]

Empezado por marcoszorrilla

Me temo que Marto se refería al truco 158.

pues va a ser que sí ;D

[!3d1@n]

Hola ...
Les comento que me alegra muchísimo haber podido encontrar esa función (la 158 del Trucomanía), pero ... en si no es lo que necesito.
Les explico mejor:
Supongamos que tengo en esta dirección (c:\arc) x cantidad de Archivos, lo cual necesito saber el valor de esa x (es desir la cantidad de archivos que contiene la carpeta arc que esta en c:\) .

nota : Estos archivos sus atributos son normales, es desir no estan ocultos ni tampoco son de solo lectura.

Tomando lo de HECTOR RANDOLPH (FindFirst, FindNext, FindClose) tengo la sgte idea pero me gustaria que me ayudaran a formularla.

Código Delphi [-]
var 
i : integer;
Procedure ...
begin
if (mando a buscar el primer archivo) then
         begin 
         Repeat
         inc(i) ;
         Until (hasta que ya no halla próximo fichero) 
         Cierro la busuqeda.
         end;
ShowMessage(IntToStr(i)); // en i obtengo la cantidad de ficheros.
end;

Bueno como vieron este es el adgoritmo que creo que me solucionará mi cuestión, por favor no creo que este del todo mal pero me gustaría que me comentaran hacerca de el. Y lo mas importante es que no se como emplear el Findfirst, FindNext y FindClose.

nota : Estube viendo la ayuda de delphi pero les seré sincero, no la he entendido aun.

En espera de su Ayuda un servidor.

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