Вопрос : Делфи получает на последнем месте доработанный архив в скоросшивателе

Хорошая потребность day

I найти архив на последнем месте был доработан в скоросшивателе. Я не знаю filename, я только знаю директория и выдвижение file.

Does любого умеют как возвратить архив имени самый последний в директории если я знаю extension.

Regards class=

Ответ : Делфи получает на последнем месте доработанный архив в скоросшивателе

Это сделает. Оно не ищет в sub директории

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19:

функция FindLastWrittenFile (Dir, поиск: Шнур): Шнур; Var R: TSearchRec; LastWrite, LastWriteAllFiles: TDateTime; начните Dir: =IncludeTrailingBackslash (Dir); LastWriteAllFiles: =0; Результат: = ''; если FindFirst (Dir+Search, faAnyFile-faDirectory, r) =0 после этого повторение LastWrite: = FileTimeToDTime (R.FindData.ftLastWriteTime); ; если LastWrite>LastWriteAllFiles после этого начните LastWriteAllFiles: =LastWrite; Результат: =R.Name; конец; до FindNext (r)<> 0; FindClose (r); конец;