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

Вниз

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

← →
ksa3003   (2005-10-09 22:34) [0]

Как можно сделать программно следющую вещь.
Мне надо осущенствлять сканирование папки на определёные файлы. Сканирование идёт из процесса. Т.е. я не хочу использовать визуальные копаненты FileListBox т т.д. .
Как мне это лучше сделать ?

---

← →
Eraser ©   (2005-10-09 22:37) [1]

> ksa3003   (09.10.05 22:34)

см. ф-ии FindFirst/Next/Close.

---

← →
Palladin ©   (2005-10-09 22:37) [2]

procedure ScanDir(StartDir: string; Mask:string; List:TStrings);
var
SearchRec : TSearchRec;
begin
if Mask = "" then Mask := "*.*";
if StartDir[Length(StartDir)] <> "\" then StartDir := StartDir + "\";
if FindFirst(StartDir+Mask, faAnyFile, SearchRec) = 0 then
begin
 repeat
 if (SearchRec.Attr and faDirectory) <> faDirectory then List.Add(StartDir + SearchRec.Name)
                                                    else
  if (SearchRec.Name <> "..") and (SearchRec.Name <> ".") then
   begin
    List.Add(StartDir + SearchRec.Name + "\");
    ScanDir(StartDir + SearchRec.Name + "\",Mask,List);
   end;
  until FindNext(SearchRec) <> 0;
 FindClose(SearchRec);
end;
end;

---

← →
Palladin ©   (2005-10-09 22:38) [3]

для сведения: здесь есть ошибки... исправляй сам

---

← →
ksa3003   (2005-10-09 22:44) [4]

Спасибо...вроде то что надо

---

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

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

Наверх

Память: 0.45 MB
Время: 0.038 c