Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Список файлов в директории

Автор: Vex 5.10.2002, 04:14

Допустим, есть директория, как мне получить список файлов по маске, например, мне нужны файлы только *.ext. Без использования сторонних компонентов. Так чтоб можно было применять как в 9х так и NT.

Автор: Vit 5.10.2002, 04:19

FindFirst/FindNext/FindClose

Подробности в нашем FAQ

Автор: Song 5.10.2002, 04:23

TListBox+LB_DIR дальше отберёшь нужные

Автор: Kesh 5.10.2002, 06:19

dir *.ext /w /p

Автор: Vex 5.10.2002, 07:36

Цитата(kesh @ 04.10.2002, 22:19)

dir *.ext /w /p

Так мне не команда доса нужна, а как это в Делфи реализовать.
Да, а что за параметр /w?

Автор: Vit 5.10.2002, 10:25

Цитата(Vex @ 04.10.2002, 15:36)

Цитата(kesh @ 04.10.2002, 22:19)

dir *.ext /w /p

Так мне не команда доса нужна, а как это в Делфи реализовать.

А чем тебе не устроили ответы мой и Song?

Автор: Vex 5.10.2002, 17:33

Цитата

А чем тебе не устроили ответы мой и Song?

Почему не устроили? Как раз очень даже устроили

Спасибо.

Автор: Guest 21.6.2004, 21:18

Автор: Felt 22.6.2004, 00:11

У меня на форме Edit с текстом Edit.Text:='C:\Folder\*.ext', ListBox и Button.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
F: TSearchRec;
begin
FindFirst(Edit1.Text, faAnyFile, F);
ListBox1.Items.Add(F.Name);
while FindNext(F)=0 do
 ListBox1.Items.Add(F.Name);
 FindClose(F);
end;

В результате в ListBox'е будут располагаться имена всех найденных файлов...