Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

Как получить имена всех подпапок 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 вся ветка

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.049 c