Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];

Вниз

Сканирование директории   Найти похожие ветки 

← →
VitAngel   (2007-02-23 08:06) [0]

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

---

← →
Elen ©   (2007-02-23 08:54) [1]

> VitAngel

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

---

← →
Steep ©   (2007-02-23 12:44) [2]

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;


---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.139 c