Главная страница
    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.44 MB
Время: 0.093 c
1-1128684587
XfroSt
2005-10-07 15:29
2005.10.30
Плоский TDateTimePicker


2-1128817720
azard
2005-10-09 04:28
2005.10.30
создание типов данных


1-1128668625
Maverick
2005-10-07 11:03
2005.10.30
Сохранение пользовательских настроек


8-1117874787
wardoc
2005-06-04 12:46
2005.10.30
Как нарисовать эллипс под произвольным углом


1-1128876024
oleg_SYS
2005-10-09 20:40
2005.10.30
Помогите создать COM-объект





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский