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

← →
Glex © (2006-05-26 14:29) [0]

Я пробовал с FindFirst, FindNext но у меня ничего не получилось.
Помогите плз.

← →
Kolan © (2006-05-26 14:36) [1]

Procedure ScanDir(Dir:string); var SearchRec:TSearchRec; begin if Dir<>"" then if Dir[length(Dir)]<>"\" then Dir:=Dir+"\"; if FindFirst(Dir+"*.*", faAnyFile, SearchRec)=0 then repeat if (SearchRec.name=".") or (SearchRec.name="..") then continue; if (SearchRec.Attr and faDirectory)<>0 then ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name" else Showmessage(Dir+SearchRec.name); //we found File: "Dir+SearchRec.name" until FindNext(SearchRec)<>0; FindClose(SearchRec); end;

procedure TForm1.Button1Click(Sender: TObject); begin ScanDir("c:"); end;

Автор: Vit
www.delphist.com
www.drkb.ru
chicago.lastplanet.com

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