Главная страница
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.044 c
1-1128380544
kristina_
2005-10-04 03:02
2005.10.30
Image+Label=print :)


14-1129120736
CHES
2005-10-12 16:38
2005.10.30
Помогите с переводом


14-1128532591
Greenz
2005-10-05 21:16
2005.10.30
Коды системных ошибок Windows


3-1126857607
Term
2005-09-16 12:00
2005.10.30
Работа с FB 1.5 через ADO


4-1124816571
NikNet
2005-08-23 21:02
2005.10.30
Как узнать что превилигия включена или выключена?