Obtener los archivos de un directorio

[roman]

Empezado por DarkByte

Claro está, esto también me da los archivos de los subdirectorios y todo, cosa que no quiero. Me gustaría implantar la solución de Román a mi procedure, ya que el function de quimeras me da error en la primera línea como que no he definido el tipo de resultado (Uso Delphi Enterprise).

¿Y cuál es la duda?

De hecho lo "difícil" es hacerlo recursivo pero si no lo necesitas entonces la respuesta está desde el mensaje de delphi.com.ar al principio del hilo.

// Saludos

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