12 respuestas en este tema

[JoAnCa]

Hola a todos
Estuve buscando en el foro, y lo que encontre fue la busqueda de archivos dentro de una carpeta, pero no se ajusta a lo que necesito

Lo que deseo es el listado de las carpetas dentro de una ubicacion especifica, para pasarlo a una lista, y agregarlas a un archivo de texto. Solo las carpetas, los archivos no me interesan

El objetivo es explorar la Carpeta especificada (Ejem: D:\EstaCarpeta\) y buscar todas las carpetas que contenga para tomarle el nombre y agregarlo en una lista de un archivo de texto (la agrego solo si no existe ya en la lista)

Opcionalmente, podria obtener tambien la cantidad de archivos de cada carpeta

Nota: En (D:\EstaCarpeta\) solo van a haber carpetas

[egostar]

Hola

A ver si esto te sirve

http://www.delphi300...le_1723.asp?SK=

Salud OS

[escafandra]

Te pongo un ejemplo sencillo pero eficaz para listar carpetas y/o subcarpetas:

delphi

procedure ListFolder(Dir:String; Salida: TStrings);
var
  sr: TSearchRec;
begin
    if FindFirst(Dir + '\*.*', faAnyFile, sr) = 0 then
    repeat
       if (sr.Name <> '.') and (sr.Name <> '..') then
       begin
          if (sr.Attr and faDirectory)<>0 then
          begin
             // Para añadir la carpeta actual
             Salida.Add(Dir + '\' + sr.Name);
             // Para añadir subcarpetas
             ListFolder(Dir + '\' + sr.Name, Salida);
          end;
       end;
    until FindNext(sr)<>0;
    FindClose(sr);
end;

Espero que sea esto lo que precisas.

Saludos.

[JoAnCa]

Gracias por sus respuestas

Probé primero la opcion de escafandra, pero me da este error (adjunto imagen), en esta linea

delphi

Salida.Add(Dir + '\' + sr.Name);

lo unico que agregué extra fue esto, aunque pienso que no tenga nada que ver con el error, no sé

delphi

procedure TForm1.btn1Click(Sender: TObject);
var
  Lista: TStrings;
 
begin
  ListFolder('c:', Lista);
  mmo1.Lines:=Lista;
end;

[JoAnCa]

habia olvidado poner la imagen 

Archivos adjuntos

•  1544_0aaf5c8ef1bed4d4d16cc54e173ad27ad4116389.jpg   13,71KB   6 descargas

[Fenareth]

Jejejejeje... lo que pasa esque elobjetoSalidas no ha sido creado.... desde donde mandas llamar la función ListFolder debes crear el TSrings:

delphi

Salidas := TStrings.Create;
// Llamar la función
Salidas.Free;

Saludox !

[Delphius]

Yo estoy 99.9999% seguro que el declarar la variable de tipo TStrings e intentar crearla:

var
Lista: TStrings;
begin
Lista := TStrings.Create;
....

Dará unos cuantos warnings de tipo Abstract Error.   

El motivo: La clase TStrings es una clase abstracta y un intento de crearla es un error conceptual. Como clase abstracta sirve para operaciones polifórmicas; carece de total sentido crear una entidad abstracta. Uno no sale a crear un animal... creará perros, gatos, ballenas en todo caso. 

La solución: emplear una clase descendiente de ésta, como por ejemplo TStringList.

Saludos,

[Fenareth]

Yo estoy 99.9999% seguro que el declarar la variable de tipo TStrings e intentar crearla:

var
Lista: TStrings;
begin
Lista := TStrings.Create;
....

Dará unos cuantos warnings de tipo Abstract Error.   

El motivo: La clase TStrings es una clase abstracta y un intento de crearla es un error conceptual. Como clase abstracta sirve para operaciones polifórmicas; carece de total sentido crear una entidad abstracta. Uno no sale a crear un animal... creará perros, gatos, ballenas en todo caso. 

La solución: emplear una clase descendiente de ésta, como por ejemplo TStringList.

Saludos,

Muy pero muy pero muy cierto... de hecho hace poco me ha ocurrido este problema y lo he solucionado así.... creando mi objeto tal y como mencionas...

Gracias por la correción amigo Delph !

Saludox !

[Delphius]

No hay de que, amiga.

Ahora, si me lo permiten... incluso no hay necesidad de declarar una variable auxiliar. Se puede pasar directamente el Items de cualquier ListBox, Memo o cualquier otro objeto que sea TStrings.

Por ejemplo:

delphi

ListFolder('C:\',ListBox1.Items);

NOTA: No se olviden de que si crean un objeto, luego hay que liberarlo.

EDITO:
No estaría demás, un ProcessMesages para darle un respiro a la máquina. Explorar, por lo general un C:\ toma un buen tiempo.

Saludos,

[escafandra]

Ciertamente el error está en no haber creado el objeto Lista (como apuntan Fenareth y Delphius), éste debe ser de la clase TStringList que no es abstracta:

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringList;
begin
  Lista:= TStringList.Create;
  ListFolder('C:\Comp\', Lista);
  Memo1.Lines:=Lista;
  Lista.Free;
end;

Pero en realidad, como dice Delphius, si vamos a usar un TMemo, por ejemplo, lo mejor es hacerlo así:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFolder('C:\Comp\', Memo1.Lines);
end;

No estaría demás, un ProcessMesages para darle un respiro a la máquina. Explorar, por lo general un C:\ toma un buen tiempo.

Cierto, o mejor aún meter el código en un thread aparte...


Saludos.

[JoAnCa]

Pues como no sabia bien lo del error, lo mandé directo para el Memo, y ahora veo que Delphius lo recomendó

Por cierto cuando lo probé se extendió un poco, pero ya sé que asi funciona
Y para resolver esto, es con:

No estaría demás, un ProcessMesages para darle un respiro a la máquina. Explorar, por lo general un C:\ toma un buen tiempo.

Pero nunca he usado ProcessMesages 

[JoAnCa]

Tambien probé la respuesta de egostar, (por cierto un poco complicada usando punteros), y al final me lo guarda en un  TList

El problema me lo encontre en como pasarlo para el Memo o para un StringList, pues me da incompatibilidad de Tipos 

[escafandra]

delphi

procedure ListFolder(Dir:String; Salida: TStrings);
var
  sr: TSearchRec;
begin
    if FindFirst(Dir + '\*.*', faAnyFile, sr) = 0 then
    repeat
       if (sr.Name <> '.') and (sr.Name <> '..') then
       begin
          if (sr.Attr and faDirectory)<>0 then
          begin
             Application.ProcessMessages;  // <<=======<<
             // Para añadir la carpeta actual
             Salida.Add(Dir + '\' + sr.Name);
             // Para añadir subcarpetas
             ListFolder(Dir + '\' + sr.Name, Salida);
          end;
       end;
    until FindNext(sr)<>0;
    FindClose(sr);
end;

Saludos.