Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Cyberrr
0 / 0 / 0
Регистрация: 16.11.2013
Сообщений: 67
1

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

07.06.2014, 09:01. Просмотров 1131. Ответов 3
Метки нет (Все метки)

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

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2014, 09:01
Ответы с готовыми решениями:

Можно ли OpenDialog 'научить' открывать папки, а не файлы?
можно ли OpenDialog 'научить' открывать папки, а не файлы? Заранее спасибо.

Добавление кнопки удаления в opendialog
Здравствуйте, задача состоит в том, чтобы сделать программу просмотра...

Копирование файла через OpenDialog
Как можно скопировать файл так, чтобы папку выбирал пользователь? Я сначала...

Открыть файл через OpenDialog
Доброго времени суток! Чего-то совсем запутался! Подскажите, пожалуйста, как...

Открытие через OpenDialog в memo
Делаю свой текстовый редактор и никак не могу сделать нормальное открытие через...

3
Cyberrr
0 / 0 / 0
Регистрация: 16.11.2013
Сообщений: 67
07.06.2014, 10:41  [ТС] 2
Вот так, но тут у меня выводится только по одному, нужно чтобы пути ко всем файлам в папке вывелись.
Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
ListBox1.Items.Add(opendialog1.FileName);
end;
end.
0
Миниатюры
Добавление папки через OpenDialog  
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
26478 / 17782 / 7034
Регистрация: 22.10.2011
Сообщений: 31,295
Записей в блоге: 6
07.06.2014, 12:45 3
Лучший ответ Сообщение было отмечено volvo как решение

Решение

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

Delphi
1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect]; // разрешаем множественный выбор
  if OpenDialog1.Execute then
    ListBox1.Items.AddStrings(OpenDialog1.Files);
end;
Или
Delphi
1
2
3
4
5
6
7
8
9
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+)
1
Cyberrr
0 / 0 / 0
Регистрация: 16.11.2013
Сообщений: 67
07.06.2014, 13:05  [ТС] 4
Спасибо за помощь!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2014, 13:05

Считывание txt в StringGrid через OpenDialog
Вечер добрый, начал делать прогу и что то застрял. Задача такая: нужно сделать...

Открыть документ Word-а через OpenDialog
openDialog := TOpenDialog.Create(self); openDialog.InitialDir :=...

Загрузка файла в Memo через OpenDialog
Здравствуйте :) Как загрузить в Memo текстовый файл через OpenDialog?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru