Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.05 c
4-1124267789
MegaVolt
2005-08-17 12:36
2005.10.30
Как убрать в ToolBar разделитель под ComboBox?


6-1112328440
TankMan
2005-04-01 08:07
2005.10.30
Пример передачи файла через Socket в режиме stThreadBlocking...


14-1128890070
NightLord
2005-10-10 00:34
2005.10.30
Баг в WinXP Sp2


3-1126802690
Patrick
2005-09-15 20:44
2005.10.30
Компонент Delphi для построения SQL - запросов к DBF-файлам.


2-1128579075
STUDENT_RU
2005-10-06 10:11
2005.10.30
Ввод вывод в консоли