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

Вниз

Поиск файла на вичестере   Найти похожие ветки 

 
Crush   (2003-11-02 23:54) [0]

Доброе время суток. Как организовать поиск файла на винчестере, так чтобы его искали по всему диску, а именно во всех папках, даже вложенных. Желательно пример(Полный).Заранее спасибо.


 
wnew   (2003-11-02 23:59) [1]

http://delphid.dax.ru/docs/view/find2.htm


 
Slavian   (2003-11-03 00:01) [2]

procedure scan_tree (root, ext: string; dF:boolean);
var
test_name: string;
full_name: string;
s: TSearchRec;
begin
root := LowerCase (root);
if root [Length (root)] <> "\" then root := root + "\";
sleep(0);
test_name := root + ext;
if FindFirst (test_name, faAnyFile, s) = 0 then
repeat
with s do
begin
Name := LowerCase (Name);
if df then begin
if (Attr = faDirectory) then
begin
full_name := root + Name;
room.Add (full_name);
end; end
else begin
if (Attr <> faDirectory) then
begin
full_name := root + Name;
if df then
room.Add (full_name)
else rek.Add(full_name)
end;
end;
end;
until FindNext (s) <> 0;
FindClose (s);
test_name := root + "*.*";
if FindFirst (test_name, faAnyFile, s) = 0 then
repeat
with s do
if ((Attr and faDirectory) <> 0) and ((Name <> ".") and (Name <> ".."))
then scan_tree (root + Name,ext,df);
until FindNext (s) <> 0;
FindClose (s);
end;


может несколько переменных необъявил!


 
wnew   (2003-11-03 00:03) [3]

http://www.torry.net/vcl/filedrv/search/teasyfilesearch.zip


 
PVOzerski   (2003-11-03 00:03) [4]

Традиционный вопрос :^) - традиционный ответ: findfirst+findnext+findclose+рекурсия. Единственный подводный камень - то, что в "." и ".." заходить не надо.


 
Crush   (2003-11-03 00:10) [5]

Всем большое спасибо!!!



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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.038 c
7-42151
qwerty123
2003-09-05 13:30
2003.11.13
ККМ


1-41161
Yanval
2003-10-31 12:12
2003.11.13
title в TWebBroswer


1-41451
WondeRu
2003-10-23 09:43
2003.11.13
Плагины и СОМ


1-41649
Sadya
2003-10-24 21:38
2003.11.13
Как отправить скорллинг в самый низ контрола ?


14-41933
Butterfly
2003-10-20 12:12
2003.11.13
---|Ветка была без названия|---





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский