Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как получить список файлов в директории включая поддиректории? [D5, Win95/98, NT4]

OGR © (2002-01-30 02:12:00)
Извините, наверняка вопрос уже поднимался, но я не смог найти как Сабж реализовать? Помогите примером или ссылкой.
Спасибо.

OGR (2002-01-30 14:30:00) [1]
2panov Спасибо, это то что нужно, я сразу незаметил.

panov (2002-01-30 14:03:00) [2]
procedure ScanDir(aPath: String; var aList: TStringList);
var
SR: TSearchRec;
tPath: String;
begin
tPath := IncludeTrailingBackSlash(aPath);
if FindFirst(tPath+"*.*",faAnyFile,SR) = 0 then
begin
try
repeat
if SR.Name[1]="." then Continue;
case (SR.Attr and faDirectory) of
faDirectory: ScanDir(tPath+SR.Name,aList);
else aList.Add(tPath+SR.Name);
end;
until FindNext(SR)<>0;
finally
sysutils.FindClose(SR);
end;
end;
end;

panov (2002-01-30 13:40:00) [3]
там есть про удаление всех файлов в подкаталогах...

OGR (2002-01-30 13:35:00) [4]
2Феликс: Уточняю: мне нужно скинуть в Memo1(или в listbox это не столь важно) все файлы в каталогах...
Ты говорил про компонент поисковик, а где мне его найти? Кинь ссылочку пожайлуста.

2panov
На http://delphi.mastak.ru/articles/advice/index.htmlнаписанно только
"Нужно воспользоваться функциями FindFirst, FindNext и FindClose." - а нет ли у когонить примера по сабжу...

panov (2002-01-30 06:36:00) [5]
В списке найдешь близкие по теме вопроса примеры:
http://delphi.mastak.ru/articles/advice/index.html

Феликс (2002-01-30 02:36:00) [6]
Хреново вопрос поставлен! Если тебе нужно, ну, например скинуть в listbox все файлы в каталогах, то тебе нужен компонент поисковик. Задаешь папку в которой искать, параметры поиска, а на событие Found пишешь listbox1.items.add(filename); Возможно, тебе просто нужен FileListBox1 и DirectoryListBox1.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »