Поиск файла

← →
Arcada (2003-03-06 12:46) [0]

Мне надо осуществить поиск файла по всем дирректориям.
Помогите мне плеазе.

← →
Beginer1 © (2003-03-06 12:50) [1]

findfile()

← →
Arcada (2003-03-06 12:56) [2]

А по подробнее.
Я ламер в этом деле поэтому findfile Мне ничего не говорит...
Пожалста разъясните..

← →
Anatoly Podgoretsky © (2003-03-06 13:04) [3]

Ну ламерам нечего делать в программировании им лучше на скрипке играть, а для чайников здесь есть FAQ

← →
Hint © (2003-03-06 13:05) [4]

Запускаем Delphi.
Выбирем меню Help, пункт Delphi Help.
Выбираем закладку "Предметный указатель" (для русской версии Windows).
Вводим в поле "1. Введите первые буквы нужного слова" словосочетнаие FindFirst.
Прожимаем Enter.
Читаем справку.
Пишем код для поиска файлов в указанной папке (во вложенных папках код искать не должен).
Разбираем написанный код и исправляем ошибки.
На основе написанного кода пишем функцию.
Думаем как ее вызвывать рекурсивно.
Пишем.
Исправляем ошибки.

← →
Lola © (2003-03-06 13:17) [5]

http://www.atrussk.ru/delphi/5/file/file5119.htm

← →
wnew © (2003-03-06 13:21) [6]

http://www.codenet.ru/progr/delphi/stat/ffile.php

← →
Anatoly Podgoretsky © (2003-03-06 13:28) [7]

Все есть в местном FAQ

:)))
невыдержала душа поэта...

← →
Arcada (2003-03-06 13:30) [9]

Я знаю как написать это дело на паскале помогите исправить.
Uses DOS;

Procedure FileFind(Dir,FindName : PathStr);
Procedure SearchDir(Dir : PathStr);
Var
SRec: SearchRec;
i:string;
begin

if Dir[Length(Dir)] <> "\" then Dir := Dir+"\";
FindFirst(Dir + FindName, AnyFile, SRec);
While DosError = 0 do
begin
With SRec do
if Attr and (VolumeID + Directory) = 0 then
WriteLn(Dir + Name);
FindNext(SRec);
end;
FindFirst(Dir+"*.*", Directory or ReadOnly or Hidden or SysFile, SRec);
While DosError = 0 do
begin
With SRec do
if (Attr and Directory <> 0) and (Name[1] <> ".") then SearchDir(Dir+Name);
FindNext(SRec);
end;
end;
begin
SearchDir(Dir);
end;

begin

FileFind("c:\","*.exe");
FileFind("h:\","*.exe");
FileFind("j:\","*.exe");
FileFind("d:\","*.exe");

end.

Arcada (06.03.03 13:30)
вот-так:
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=1015254946&n=19

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