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

opinion ejecutiva

Question

Estoy trabajando con Delphi, quiero una lista de todos los archivos de un directorio cuando ejecuto openpicturedialog.

es decir, cuando se ejecuta el cuadro de diálogo abierto y selecciono un archivo de él, quiero la lista de todos los archivos del directorio del archivo seleccionado.

Incluso puede sugerirme que obtenga el nombre de directorio de la propiedad FileName de TOpenDialog
Gracias.

Answer 1

@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;

Answer 2

Cambie la propiedad de filtro en su OpenPictureDialog para incluir todos los archivos:

All (*.*)

Edición : no creo que pueda seleccionar un directorio en un cuadro de diálogo Abrir (imagen), seguramente no es el propósito de un OpenPictureDialog de todos modos. Quizás this es lo que buscas.

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

Answer 3

Puede usar la función extractFilePath para obtener el nombre del directorio:

myPath := extractFilePath(FileName);

donde NombreDeArchivo es el nombre del archivo que elige por OpenDialog.

Answer 4

Si usa Delphi 2010, entonces puede usar tdirectory.getfiles primero agregue ioutils.pas para usar la cláusula 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;