Узнать имя папки

[terpyohok]

Здраствуйте. Такая задача. Одна программа при каждом запуске создает папку на диске D:/ в формате дд-мм-гггг. Как узнать название последней созданной папки и записать его в переменную например? Думаю наиболее подходящим вариантом будет папка с самой последней датой создания. но как это реализовать?

[ttp]

вот функция поиска папки с последней датой

function TForm1.search(path: string): String; ////////////
var //////////////////////////////////////////////////////
  seek: TSearchRec;
  i,max: Integer;
  datestamp: array[0..50] of TDateTime;
   fd: TStringList;
begin
  max := 0;
  if DirectoryExists(path) then  //dir exists?
  begin
  fd := TStringList.Create;
  if FindFirst(path + '\*.*', faDirectory, seek) = 0 then//search
  begin                                                  ////////
    repeat                                               ////////
      if (seek.Attr and faDirectory) <> 0 then //search only dir/
        if (seek.Name <> '.') and (seek.Name <> '..') then//exclude system dir's
          fd.Add(seek.Name);                             //
    until FindNext(seek) <> 0;                           ///
    FindClose(seek);                                     //close search
    Application.ProcessMessages;// if windows high load
    DateSeparator:='.';// date format to '.' (01.01.2012)

    for i := 0 to fd.Count - 1 do          //= search max date
  begin                                    //=
    datestamp[i]:=StrToDate(fd[i]);        //=
    if datestamp[i] > datestamp[max] then  //=
      max := i;                            //=
      end;
      fd.Free;
  Result :=DateToStr(datestamp[max]);//result str up to date
  end
  else Result:='';// on error dir or another error
  end; ///////////////////////////////////////////////////
end;//////////////////////////////////////////////////

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

через FindFirst / FindNext легко получить все папки.
Проверить папку на соответствие маске и найти с максимальной датой в имени - это уже дело техники.
Направление я дал, дальше самостоятельно справитесь?

[phomm]

Поиск по форуму FindFirst FindNext в разделах по дельфи изучите - авось натолкнёт на мысли. Сделаете по аналогии заготовку и если работать не будет - сюда напишете, подсобим довести до ума.
ПС, Млин ) как так, полчаса ответов не было а тут сразу подряд 3 ))

[Serge_Bliznykov]

оффтоп

Сообщение от phomm

ПС, Млин ) как так, полчаса ответов не было а тут сразу подряд 3 ))

Угу! я, кстати, неоднократно подобные казусы на форуме наблюдал.. Когда одновременно несколько человек дают ответ! Логических объяснений я этому не вижу - чистое стечение обстоятельств — Его Величество Случай!

[terpyohok]

Сообщение от Serge_Bliznykov

через FindFirst / FindNext легко получить все папки.
Проверить папку на соответствие маске и найти с максимальной датой в имени - это уже дело техники.
Направление я дал, дальше самостоятельно справитесь?

Думаю да, хоть и не особо пока знаю как.,
Все равно спасибо

Кстати, сор за оффтоп но еще вопрос - возможно-ли перехватить файл, который некая программа отправляет с ПК через Bluetooth на печать BT принтеру? Было бы очень интересно увидеть принцип работы сего кода...

[_SERGEYX_]

Как узнать название последней созданной папки и записать его в переменную например?

А не проще ли при создании папки записывать куда-нибудь (например, в ini-файл) к ней путь, т.е. каждый раз перезаписывать это значение. Тогда не понадобятся FindFirst - FindNext.