Obtener los archivos de un directorio

[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

[lucasarts_18]

Hola:

Muchisimas gracias Roman, ahora sí resulta.


Saludos.