Delphi - how to get a list of all files of directory

Question

I am working with delphi, I want a list of all files of a directory when I execute openpicturedialog.

i.e., When open dialog is executed and i select one file from it, I want the list of all files from the directory of selected file.

You can even suggest me for getting directory name from FileName property of TOpenDialog
Thank You.

score 56 · Answer 1 · edited Jun 06 '17 at 13:20

56

if you use delphi 2010 then you can use tdirectory.getfiles first add ioutils.pas to uses clause then write the following line of code in the event handler(in addition to code you already have in that event handler)

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;

edited Jun 06 '17 at 13:20

Johan

74,508
24
191
319

answered Jun 12 '10 at 06:41

Omair Iqbal

1,820
1
28
41

Good option but I am not using delphi 2010... :-( – Himadri Jun 12 '10 at 08:13
2

Don't forget to include : uses IOUtils; – WishKnew Mar 05 '15 at 18:12
TDirectory.GetFiles accepts an additional argument (the first one is the folder) with file mask, were one can get files e.g. with certain extension or matching certain pattern in the filename. – Mike Sep 21 '17 at 14:39
I'm using Delphi XE4 (still!) and TDirectory is available. – Mick Apr 13 '21 at 13:14

score 33 · Accepted Answer · edited Apr 01 '15 at 13:17

33

@Himadri, the primary objective of the OpenPictureDialog is not select an directory, anyway if you are using this dialog with another purpose you can try this code.

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;

edited Apr 01 '15 at 13:17

J...

30,968
6
66
143

answered Jun 12 '10 at 05:47

RRUZ

134,889
20
356
483

5

I think your code needs a try finally protecting FindFirst/FindClose(SR). – Warren P Jun 15 '10 at 15:39
2

found a bug you need to replace if FindFirst('*.*', faArchive, SR) = 0 then with if FindFirst(Path+'*.*', faArchive, SR) = 0 then because it doesn't look at the path – AirWolf Aug 25 '14 at 08:02
How to sort the list by the date of the files ? – delphirules Jul 28 '20 at 23:36
1

FindFirst is quite outdated. Why not TDirectory.GetFiles ? – Gabriel Sep 30 '20 at 09:46
this code problem in win10 – udorb b Apr 13 '22 at 01:28

Jens Björnhager · Answer 3 · 2020-06-24T14:50:51.040

3

Change the filter property in your OpenPictureDialog to include all files:

All (*.*)

Edit: I don't think you can select a directory in a Open(Picture)Dialog, it surely isn't the purpose of an OpenPictureDialog anyway.

Then use FindFirst and FindNext to get the files in this dir.

edited Jun 24 '20 at 14:50

answered Jun 12 '10 at 05:21

Jens Björnhager

5,632
3
27
47

I am not selecting a directory but a file.. and I want other file list of parent directory of selected file.. read the question carefully... – Himadri Jun 12 '10 at 05:41
In that case, CaldonCZE has the answer. – Jens Björnhager Jun 12 '10 at 13:47

score 2 · Answer 4 · answered Jun 12 '10 at 05:44

2

You can use extractFilePath function to get the directory name:

myPath := extractFilePath(FileName);

where FileName is name of file you choose by OpenDialog.

answered Jun 12 '10 at 05:44

Ondra C.

2,492
3
33
35

Petrus · Answer 5 · 2019-08-02T21:01:01.597

1

if OpenPictureDialog1.Execute then  
  FileListBox1.Directory := extractFilePath(OpenPictureDialog1.FileName);

You can also use a FilterComboBox linked to FileListBox to filter the file type.

TFileListBox and TFilterComboBox are in the tool palette under "Win 3.1". From Delphi 4 there are these objects.

edited Aug 02 '19 at 21:01

answered Aug 02 '19 at 20:48

Petrus

59
5

score 0 · Answer 6 · edited Apr 05 '23 at 11:22

0

With this code, you can get the "path" information of the files in the folder you want. You can use Delphi's System.IOUtils library for this.

uses 
...
 System.IOUtils;
...

var List : TStringlist;
var File : String := '';
var Path : string := IncludeTrailingPathDelimiter(Edit1.Text);

Lista := TStringList.Create;
try
    for File in TDirectory.GetFiles(Path) do
        List.Add(File); // Add all file names to list
finally
    FreeAndNil(Lista);
end;

edited Apr 05 '23 at 11:22

Halil Han BADEM

208
1
15

answered Dec 24 '21 at 21:02

Marcelo Fortes

11
2

1

Your answer could be improved with additional supporting information. Please [edit] to add further details, such as citations or documentation, so that others can confirm that your answer is correct. You can find more information on how to write good answers [in the help center](/help/how-to-answer). – Community Dec 24 '21 at 22:17

Delphi - how to get a list of all files of directory

6 Answers6

Linked