Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Вниз

Как получить список файлов в директории включая поддиректории? 


OGR   (2002-01-30 02:12) [0]

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



Феликс   (2002-01-30 02:36) [1]

Хреново вопрос поставлен! Если тебе нужно, ну, например скинуть в listbox все файлы в каталогах, то тебе нужен компонент поисковик. Задаешь папку в которой искать, параметры поиска, а на событие Found пишешь listbox1.items.add(filename); Возможно, тебе просто нужен FileListBox1 и DirectoryListBox1.



panov   (2002-01-30 06:36) [2]

В списке найдешь близкие по теме вопроса примеры:
http://delphi.mastak.ru/articles/advice/index.html



OGR   (2002-01-30 13:35) [3]

2Феликс: Уточняю: мне нужно скинуть в Memo1(или в listbox это не столь важно) все файлы в каталогах...
Ты говорил про компонент поисковик, а где мне его найти? Кинь ссылочку пожайлуста.

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



panov   (2002-01-30 13:40) [4]

там есть про удаление всех файлов в подкаталогах...



panov   (2002-01-30 14:03) [5]

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;



OGR   (2002-01-30 14:30) [6]

2panov Спасибо, это то что нужно, я сразу незаметил.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.043 c
6-42820           sergio_b              2001-11-26 02:10  2002.02.14  
Использование UDP - Запрос сервера Half-Life


4-42891           XM-AD                 2001-12-13 09:16  2002.02.14  
Мастаки!!!!!! HELP.PLZ!!!!


1-42766           Ura                   2002-01-31 12:44  2002.02.14  
Создание INI файла по имение exe файла


7-42875           pOintID               2001-11-07 16:09  2002.02.14  
MDI


4-42896           _Dima                 2001-12-18 12:12  2002.02.14  
В Win98 работаю с COM портом - все OK, в Win2k та же прога глючит. Почему ?