список имен файлов и папок

← →
dolphin (2004-11-14 20:22) [0]

какие есть функции чтобы узнать имена папок и файлов в каком то каталоге

← →
Гаврила © (2004-11-14 20:36) [1]

FindFirst, FindNext

← →
novice_man © (2004-11-14 20:49) [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);

← →
Torin (2004-11-14 21:25) [3]

SearchRec.Attr = faDirectory - непрокатит если директория будет например архивной, или только для чтения.

список имен файлов и папок Найти похожие ветки