Проверка наличия файлов (непостоянное количество)

[Raveshaw]

Добрый день, друзья!
Возникла проблема, посему прошу помощи у вас. Задача следующая:
Имеется папка, в которой есть множество подпапок с городами. В каждой из этих папок есть еще 4 папки, из которых нам важна только одна. В ней есть 5 других папок, в каждой из которых есть свои подпапки. Нужно в этих конечных подпапках проверить есть ли там файлы и дату их создания. Если файлов нет или они старые то уведомить об этом пользователя, выведя название города и конечной подпапки. Дату нужно брать из DateTimePicker. Основная проблема заключается в том, что количество файлов в этих папках непостоянно(от 2 до 8) и название их меняется.

Не могу придумать как проверить пустая ли папка, остальное вроде как не очень сложно.

[FaTaL]

Функцией поиска FindFirst, FindNext, FindClose. Много раз обсуждалось на форуме.

[Yurk@]

поиск
http://programmersforum.ru/showthread.php?t=229086
http://programmersforum.ru/showthread.php?t=227964

[Raveshaw]

А вроде искал... Надо учиться составлять поисковые запросы.
Вопрос решен, тему можно закрывать, всем спасибо

UPD. Ан нет, не решен.
Прикладываю код:

  case RadioGroup1.ItemIndex of
          0:assignfile(namefile,'pred_nameslist.txt');
          1:assignfile(namefile,'cover_nameslist.txt');
          2:assignfile(namefile,'lbs_nameslist.txt');
   end;
  reset(namefile);
  while not(eof(namefile)) do
   begin
    readln(namefile,s);
    if FindFirst(s+'\*.*',faAnyFile,fs) = 0 then
                                      begin
                                       repeat
                                        IF checkbox1.Checked then
                                            if Filedatetodatetime(fs.Time)<datetimepicker1.DateTime then Memo2.Lines.Add('Файлы в папке  '+s+' устарели');
                                       until findnext(fs)<>0;
                                       FindClose(fs)
                                      end
      else
     Memo1.Lines.Add('Нет файлов в папке '+s);
    FindClose(fs); 
   end;
  closefile(namefile);
  Form1.Caption:='Checker';

И работает не совсем так как задумывалось.
В файлах содержатся строки вида:
\\10.40.171.48\cover_result\tambov\ 2g
\\10.40.171.48\cover_result\tambov\ 3g
\\10.40.171.48\cover_result\tatar\2 g
которые и загружаются в S

Но поиск выдает что файлов нет только в том случае, если нет такого пути (проще говоря если например папки 3g не существует вообще), если же папка есть, то вне зависимости от того пустая она или нет выдается что она не пустая.
Не могу понять свою ошибку, подскажите плз

[Kix.IV]

Ну они не пустые. В каждой папке есть "папка" ..
Просто добавьте проверку на отсутствие .. и . в fs.name

[Raveshaw]

Все, заработало. Большое спасибо всем откликнувшимся за помощь!