Поиск по дате создания файла

[kayman]

Подскажите пожалуйста код или хотя бы идею как реализовать поиск по Дате создания файла, в данном случае *.dbf (в диапазоне с такой то по такую дату, скорее всего использовать DateTimePicker1 и DateTimePicker2), причем отображать найденные таблицы нигде не надо, как бы найти виртуально. А затем из этих найденных таблиц осуществить поиск через DateTimePicker3 и DateTimePicker4 по полям даты. И вот эти найденные записи из нескольких таблиц отобразить в одну на форме (через ADOQuery), я думаю что для этого надо как то создать временную пустую таблиЗцу ?
Заранее Благодарен!

[А. Долматов]

после поиска по форуму вот что я нашел.

procedure Find(Dir,Ext:String);
var
SR:TSearchRec; //Информация о файле: Имя, Атрибуты, Размер и т.д.
FName:String;
begin
//Поиск в каталоге первой записи,
//соответствующей имени файла и набору атрибутов
if FindFirst(Dir+'*.'+Ext,faAnyFile,SR )=0 then
//Поиск всех последующих записей
repeat
FName:=Dir+SR.Name;
Form1.Memo1.Lines.Add(FName);
until FindNext(SR)<>0;
//Поиск в подкаталогах
if FindFirst(Dir+'*.',faDirectory,SR)= 0 then
repeat
with SR do
if (Attr and faDirectory<>0) and (Name[1]<>'.')
then Find(Dir+Name+'\',Ext);
until FindNext(SR)<>0;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
//Edit1 - где искать
//Edit2 - расширение (например, exe)
Find(Edit1.Text,Edit2.Text);
end;
я так понимаю вместо расширения можно и дату создания поставить.