26 respuestas en este tema

[escafandra]

Lo acabo de probar pero al realizar la llamada se cuelga todo el system..... he revisado en el taskmanager y cuado lo ejecuto como que empieza a consumir toda la ram....a que se deberà......??? 

En principio cuando lo probé no fallaba. Ten en cuenta que si estás analizando una carpeta con un contenido muy grande de subcarpetas, ocurren dos cosas: la primera es que el código tardará mucho y parecerá colgado. La segunda que el consumo de la pila se dispara y si se consume...

Para evitar que parezca colgado puedes añadir una línea con un Application.ProcessMessages, por ejemplo en esta parte:

delphi

......
  repeat
    Application.ProcessMessages;
    if ((SR.Attr and fadirectory) = fadirectory) then
    begin
      .......

Otra opción interesante es usar un hilo a parte.

Si el problema está en la pila, debes cambiar por completo esa función. Usa los otros ejemplos que te dí.


Saludos.

[monchito_elroro]

Ok amiguito, Seguirè probando y les cuento....

[monchito_elroro]

Buenas con todos amiguitos, al fin tuve tiempo para probar el código:

delphi

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

con su respectiva llamada:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
myfiles:=0;
TotalFilesFolders('E:\');
ShowMessage(IntToStr(myfiles));
end;

y me he dado cuenta que en WinXP funciona bien.... pero cuando lo ejecuto en Win7 se chupa toda la memoria, solo cuando lo ejecuto con clic derecho "Ejecutar como administrador" trabaja bien....

Al final creo que optaré por la función del amigo Escafranda....
seguiré probando y en su momento les comentaré.... Gracias. 

[Delphius]

Una pregunta,
¿Es posible implementar una exploración de directorios y subdirectorios sin recurrir a la recursividad?
Porque si el problema es la pila a causa de tantas llamadas recursivas y se necesita de explorar carpetas y subcarpetas entonces no veo modo de hacerlo sin recursividad.

Hay problemas que no pueden resolverse sin recursión, y hay un teorema que lo demuestra, pero desconozco si este es uno de ellos.

Saludos,

[monchito_elroro]

Buenas con todos, a los tiempos amigos del foro, quería hacerles una consulta especialmente al amigo "Escafandra".

Hace un tiempo compartio un código para contar todos los archivos y carpetas de una unidad o directorio, el código era este:
 

php

function FileFolderCount(Dir:String): integer;
var
  sr: TSearchRec;
begin
    Result:= 0;
    if FindFirst(Dir + '\*.*', faAnyFile, sr) = 0 then
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then
      begin
          if (sr.Attr and faDirectory)<>0 then
          begin
            inc(Result);
            // Para añadir subcarpetas
            Result:= Result + FileFolderCount(Dir + '\' + sr.Name);
          end else
            inc(Result);
      end;
    until FindNext(sr)<>0;
    FindClose(sr);
end;

Y su Ejemplo de uso es:

php

Label.Caption:= IntToStr(FileFolderCount('C:\adaptec'));

Funciona perfectamente, mas mi consulta es como le puedo agregar un parametro para elegir cuando el conteo sea recursivo o conteo sin recursión, agradezco de antemano sus ayudas.

[escafandra]

Solo tienes que añadir un parámetro a la función para elegir si quieres contar en subcarpetas o no:

delphi

function FileFolderCount(Dir:String; SubFolder: boolean = true): integer;
var
  sr: TSearchRec;
begin
    Result:= 0;
    if FindFirst(Dir + '\*.*', faAnyFile, sr) = 0 then
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then
      begin
          if (sr.Attr and faDirectory)<>0 then
          begin
            inc(Result);
            // Para añadir subcarpetas
            if SubFolder then Result:= Result + FileFolderCount(Dir + '\' + sr.Name);
          end else
            inc(Result);
      end;
    until FindNext(sr)<>0;
    FindClose(sr);
end;

Saludos.

[monchito_elroro]

Muchas Gracias amigo "Escafandra"