Поиск

← →
Бурато (2009-03-12 18:35) [0]

Добрый вечер. Я совсем новичок в Delphi, и у меня возник вопрос. Как реализовать следующие: Мне нужно что бы
1) в листбокс добавлялись имена всех папок которые хранятся в каталоге C:\Temp\..
2)Подскажите как узнать путь файла который открыли через opendialog.
буду вам очень признателен, если вы поможете.
P.S. Я сумел накодить добавление определенного формата, но с папками не могу разобраться
if FindFirst("C:\Temp\*.mp3", faAnyFile, sr) = 0 then begin repeat if (sr.Attr and faDirectory)=0 then begin listbox1.Items.add("C:\Users\1\Music\"+sr.name); end; until FindNext(sr) <> 0; FindClose(sr); end;

← →
Palladin © (2009-03-12 18:40) [1]

ExtractFilePath + F1

← →
Palladin © (2009-03-12 18:42) [2]

И совет, как начинающему, накодить это, извинясь, как насрать. Не нужно так говорить. Сумел реализовать - вот так говорят профессионалы и те, кто желает им стать. :)

← →
Медвежонок Пятачок © (2009-03-12 18:44) [3]

if (sr.Attr and faDirectory) = faDirectory then

← →
Бурато (2009-03-12 18:53) [4]

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

← →
Бурато (2009-03-12 19:17) [5]

столкнулся с ещё одно проблемой. как организовать поиск файлов во всех внутренних каталогах папки?

решение данной проблеммы заключается в изучении понятия "рекурсия"

Поиск Найти похожие ветки