Получить список папок

← →
Gall © (2005-10-10 19:20) [0]

Как можно получить список папок в какой нить директории???

← →
Fay © (2005-10-10 19:46) [1]

FindFirstFile/FindNextFile/FindClose + F1

← →
Palladin © (2005-10-10 22:10) [2]

http://delphimaster.net/view/2-1128882891/

← →
Германн © (2005-10-11 01:51) [3]

2 Palladin © (10.10.05 22:10) [2]
Тимур! Ну я ещё могу принять Ваш ответ в той ветке, с учётом "
Palladin © (09.10.05 22:38) [3]

для сведения: здесь есть ошибки... исправляй сам".

Но стоит ли ссылаться на подобное в других ответах?
Если это - ликбез, то ЮЗ делал его "гораздо длиннее в попугаях"! :)
И уж без ошибок.

← →
IceBeerg © (2005-10-11 13:29) [4]

procedure ScanDir(StartDir: string; List:TStringList); var SearchRec : TSearchRec; begin StartDir:=IncludeTrailingPathDelimiter(StartDir); if FindFirst(StartDir+"*.*", faAnyFile, SearchRec) = 0 then begin repeat if (SearchRec.Attr and faDirectory) = faDirectory then if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then List.Add(SearchRec.Name); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end;

Если с полными путями то:
procedure ScanDir(StartDir: string; List:TStringList); var SearchRec : TSearchRec; begin StartDir:=IncludeTrailingPathDelimiter(StartDir); if FindFirst(StartDir+"*.*", faAnyFile, SearchRec) = 0 then begin repeat if (SearchRec.Attr and faDirectory) = faDirectory then if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then List.Add(StartDir + SearchRec.Name); until FindNext(SearchRec) <> 0; FindClose(SearchRec); end;
end;

> Германн © (11.10.05 01:51) [3]

Там на самом деле не было ошибок, но были нюансы, на которые человек наткнется в поисках ошибок... по крайней мере я на это надеялся :)

Получить список папок Найти похожие ветки