| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
список имен файлов и папок [D7, WinXP]
dolphin © (2004-11-14 20:22:00)какие есть функции чтобы узнать имена папок и файлов в каком то каталоге
Torin (2004-11-14 21:25:00) [1]SearchRec.Attr = faDirectory - непрокатит если директория будет например архивной, или только для чтения.
novice_man (2004-11-14 20:49:00) [2]Код для поиска всех подкаталогов в указанном каталоге FolderName(исключая '.' и '..' - что тоже нормальное имя каталога), результат сохраняется в переменной типа TStrings (обязательно перед использованием: folders := TStringList.Create).
NameSearch := FolderName + '\*.*';
SearchRes := FindFirst(NameSearch, faAnyFile, SearchRec);
if SearchRes = 0 then begin
if (SearchRec.Attr = faDirectory) and
((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then folders.Add(IncludeTrailingBackSlash(FoldersList.Add(FolderName + '\' + SearchRec.Name);
end;
while SearchRes = 0 do begin
SearchRes := FindNext(SearchRec);
if (SearchRec.Attr = faDirectory) and
((SearchRec.Name <> '.') and (SearchRec.Name <> '..')) then folders.Add(IncludeTrailingBackSlash(FoldersList.Add(FolderName + '\' + SearchRec.Name)
end;
FindClose(SearchRec);
Гаврила (2004-11-14 20:36:00) [3]FindFirst, FindNext
| |
