Obtener los archivos de un directorio

[DarkByte]

Bueno, ya lo he conseguido, la duda era que no sabía eliminar el if de la búsqueda recursiva.

Código Delphi [-]
procedure Rastrear (Dir:string);
   var
      FileSearch:  TSearchRec;
   begin
     Screen.Cursor := crHourGlass;
     ChDir ( Dir );
     if FindFirst ( '*.*', faDirectory, FileSearch )=0 then
     repeat
       begin
         //Pon aqui lo que quieras hacer con los ficheros encontrados
         Form1.Memo1.Lines.Add (FileSearch.Name);
       end;
     until FindNext( FileSearch ) <> 0;
     FindClose( FileSearch );
     Screen.Cursor := crDefault;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Rastrear ('C:\');
end;

Ala, ya está, me parece que este hilo debería quedar en la colección de hilos útiles. a mi me parece que lo és y mucho.

[[Lepe]]

DarkByte, si usas las rxlibs, tienen una unidad llamada nkfiles.pas en la cual tienes esta funcion:

// Devuelve una lista con todos los ficheros de un directorio que se ajustan
// a la máscara cMask, con unos atributos dados, si lRecursive vale True,
// busca también en los subdirectorios, en los subdirectorios de los
// subdirectorios, etc.
// Devuelve False si el directorio no existe.
function FindFilesInDir(const cDir:String; cMask: TStrings; iAttr: Integer;
						 lRecur: Boolean; S: TStringList): Boolean;

cmask := '*.jpg';
iattr := fareadonly+faAnyfile;

creo que debes añadir la unidad FileCtrl para usar fareadonly, si no es esta unidad, busca en la ayuda.(no tengo delphi a mano ahora mismo)

Para usar la libreria nkfiles, deberás añadir la ruta de la misma al Library Path de Delphi


Espero te sea de utilidad

[DarkByte]

Gracias Lepe, la próxima vez seguiré tu consejo, que parece más sencillo. Ahora no puedo porque ya lo tengo todo implementado y me da perezaaaaaa .

Gracias de nuevo, compañero

[lucasarts_18]

Hola:

Tengo un problemita con esta función, espero sus ayudas

Código Delphi [-]
 
 
function TFrmDistribuidor.LeerArchivo (Dir : String) : String;
var
  Nombre : TSearchRec;
  NomFile : String;
begin
  if FindFirst(Dir,faDirectory,Nombre) = 0 then
      NomFile := Nombre.Name;

  LeerArchivo := NomFile;
end;

En vez de devolverme el nombre del archivo, me devulve el nombre de la carpeta.

Saludos.

[[Lepe]]

- Cierra la búsqueda con Nombre.Close despues de buscar.
- busca por faArchive, ahora solo estas buscando las carpetas (faDirectory)

Un saludo

[roman]

Empezado por lucasarts_18

En vez de devolverme el nombre del archivo

¿El nombre de cuál archivo quieres obtener?

// Saludos

[lucasarts_18]

Empezado por roman

¿El nombre de cuál archivo quieres obtener?

Saludos

Hola.

Es un solo archivo del cual quiero rescatar el nombre, solo hay un solo archivo...

Empezado por Lepe

- Cierra la búsqueda con Nombre.Close despues de buscar.
- busca por faArchive, ahora solo estas buscando las carpetas (faDirectory)

Hola:

Nombre.Close -> No aparece el método Close
faArchive -> Lo hice y no pasa nada.

Estoy con delphi 7

Saludos.

[roman]

Examina lo que significa la llamada a FindFirst.

FindFirst(Dir, faDirectory, Nombre);

busca los directorios (faDirectory) cuyo nombre corresponda a Dir. Si el directorio existe, sus datos se colocan en la variable Nombre y de aquí que lo que obtienes es el nombre del directorio que pasas en Dir.

FindFirst(Dir, faArchive, Nombre);

busca los archivos (faArchive) cuyo nombre corresponda a Dir. Si Dir es, por ejemplo, 'C:\Temp', FindFirst busca un archivo cuyo nombre sea 'C:\Temp', que no existe y por ello no te devuelve nada.

El punto está en la frase "cuyo nombre corresponda a". El primer parámetro de FindFirst puede incluir comodines. Así que lo más adecuado sería:

FindFirst(Dir + '\*.*', faArchive, Nombre);

De esta manera, si como en el ejemplo Dir es 'C:\Temp', FindFirst buscará los archivos cuyo nombre corresponda a 'C:\Temp\*.*', es decir, cualquier archivo dentro del directorio C:\Temp y pondrá en Nombre los datos del primero que encuentre o devolverá <> 0 si no hay ninguno.

Para cerrar la búsqueda usa FindClose.

// Saludos