Добавление папки через OpenDialog

@Cyberrr · Регистрация: 16.11.2013

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста, как через OpenDialog добавить в список всю папку целиком, т.е. допустим, есть некая папка "Новая папка 1", в ней содержатся файлы, скажем 4 файла в txt (файл1.txt, файл2.txt, файл3.txt, файл4.txt),нужно вывести путь к ним в ListBox, сейчас я могу только поочередно добавлять пути к файлам, после каждого файла по новой открывая OpenDialog. Пробовал методом выделения в открывшемся окне OpenDialog, с некоторыми типами файлов не работает такой метод.

@Cyberrr · 07.06.2014, 10:41 **[ТС]**

Вот так, но тут у меня выводится только по одному, нужно чтобы пути ко всем файлам в папке вывелись.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
ListBox1.Items.Add(opendialog1.FileName);
end;
end.

@volvo · 07.06.2014, 12:45

Сообщение от Cyberrr

с некоторыми типами файлов не работает такой метод

OpenDialog-у плевать, какие там типы файлов. Для него это просто имена, и мультивыбор работает прекрасно с любыми именами. А чтобы добавить несколько выбранных файлов в ListBox сразу, нужно сделать:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect]; // разрешаем множественный выбор
  if OpenDialog1.Execute then
    ListBox1.Items.AddStrings(OpenDialog1.Files);
end;

Или

Delphi

uses Vcl.FileCtrl, System.IOUtils;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir, s : string;
begin
  if SelectDirectory('Выберите папку', 'С:\', Dir) then
    for s in TDirectory.GetFiles(Dir) do ListBox1.Items.Add(s);
end;

(для XE+)

@Cyberrr · 07.06.2014, 13:05 **[ТС]**

Спасибо за помощь!

@Cyberrr 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 70
		1
	Добавление папки через OpenDialog 07.06.2014, 09:01. Показов 2217. Ответов 3 Метки нет (Все метки) Подскажите пожалуйста, как через OpenDialog добавить в список всю папку целиком, т.е. допустим, есть некая папка "Новая папка 1", в ней содержатся файлы, скажем 4 файла в txt (файл1.txt, файл2.txt, файл3.txt, файл4.txt),нужно вывести путь к ним в ListBox, сейчас я могу только поочередно добавлять пути к файлам, после каждого файла по новой открывая OpenDialog. Пробовал методом выделения в открывшемся окне OpenDialog, с некоторыми типами файлов не работает такой метод. 0

@Cyberrr 0 / 0 / 0 Регистрация: 16.11.2013 Сообщений: 70
	07.06.2014, 13:05 [ТС]	4
	Спасибо за помощь! 0

Добавление папки через OpenDialog

Решение