Delphi: cómo obtener una lista de todos los archivos del directorio

Esta es el arreglo más completa que encomtrarás dar, sin embargo estúdiala pausadamente y analiza si se puede adaptar a tu trabajo.

Solución:

si usa delphi 2010, puede usar tdirectory.getfiles primero agregue ioutils.pas a la cláusula uses y luego escriba la siguiente línea de código en el controlador de eventos (además del código que ya tiene en ese controlador de eventos)

uses IOUtils;

 var
    path : string;
begin
    for Path in TDirectory.GetFiles(OpenPictureDialog1.filename)  do
        Listbox1.Items.Add(Path);assuming OpenPictureDialog1 is the name you gave to your OpenPictureDialog control
end;

@Himadri, el objetivo principal de OpenPictureDialog no es seleccionar un directorio; de todos modos, si está utilizando este cuadro de diálogo con otro propósito, puede probar este código.

Var
  Path    : String;
  SR      : TSearchRec;
  DirList : TStrings;
begin
  if OpenPictureDialog1.Execute then
  begin
    Path:=ExtractFileDir(OpenPictureDialog1.FileName); //Get the path of the selected file
    DirList:=TStringList.Create;
    try
          if FindFirst(Path + '*.*', faArchive, SR) = 0 then
          begin
            repeat
                DirList.Add(SR.Name); //Fill the list
            until FindNext(SR) <> 0;
            FindClose(SR);
          end;

     //do your stuff

    finally
     DirList.Free;
    end;
  end;

end;

Cambiar el filtrar propiedad en su OpenPictureDialog para incluir todos los archivos:

All (*.*)

Editar: No creo que pueda seleccionar un directorio en un cuadro de diálogo Abrir (imagen), seguramente no es el propósito de un cuadro de diálogo abierto de todos modos.

Luego use FindFirst y FindNext para obtener los archivos en este directorio.

Reseñas y calificaciones

---

---

Utiliza Nuestro Buscador