Как получить имена всех подпапок 1ур. данной папки?
Glex © (2006-05-26 14:29:00)
Я пробовал с FindFirst, FindNext но у меня ничего не
получилось.
Помогите плз.
Kolan (2006-05-26 14:36:00) [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
Наверх 
ЧАТ |
Орешник |
|
