| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сканирование директории [D7, XP]

VitAngel ©   (2007-02-23 08:06:00) 

Утро доброе! Как можно просканировать директорию и получить имена всех файлов, в том числе и файлов, лежащих во внутренних папках?

---

Steep   (2007-02-23 12:44: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;


---

Elen   (2007-02-23 08:54:00) [2]

> VitAngel

FindFirst...FindNext с рекурсией. (Кстати в LMD есть класный компонентик Grep)

---

Наверх