Вывести из коллекции самый "свежий" файл

[strannick]

Доброй ночи, уважаемые форумчане!
Есть код, который делает коллекцию файлов по указанному пути и выводит на лист реквизиты этих файлов. Вот кусок кода:

ПутьКПапке$ = "C:\Users\Vova\Dropbox\Checklists\"
   МаскаПоиска$ = "*_итоги.csv" 
   ГлубинаПоиска% = 3
   If ГлубинаПоиска% = 0 Then ГлубинаПоиска% = 999    ' без ограничения по глубине

    ' считываем в колекцию coll нужные имена файлов
   Set coll = FilenamesCollection(ПутьКПапке$, МаскаПоиска$, ГлубинаПоиска%)

    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ' выводим результаты (список файлов, и их характеристик) на лист
   For i = 1 To coll.Count    ' перебираем все элементы коллекции, содержащей пути к файлам

        НомерФайла = i
        ПутьКФайлу = coll(i)
        ИмяФайла = Dir(ПутьКФайлу)
        ДатаСоздания = FileDateTime(ПутьКФайлу)
        РазмерФайла = FileLen(ПутьКФайлу)

        ' выводим на лист очередную строку
       Range("a" & Rows.Count).End(xlUp).Offset(1).Resize(, 5).Value = _
        Array(НомерФайла, ИмяФайла, ПутьКФайлу, ДатаСоздания, РазмерФайла)

Столкнулся с ситуацией, когда маску поиска задать можно только по расширению "*.csv", потому как таких файлов может быть множество, не обязательно с таким именем. А мне нужен один(любой) из них. Думал встроить проверку на последний по дате\времени создания, что-то типа такого:

Do While myName <> ""
      If f = "" Then f = myName Else If FileDateTime(myPath & myName) > FileDateTime(myPath & f) Then f = myName
        myName = Dir
    Loop

Или встроить процедуру создания коллекции, чтобы в нее добавлялся только один, первый из найденных файлов? Подскажите, как лучше.
Заранее спасибо!

[doober]

'в вашем коде найдете строку
 For Each fil In curfold.Files    ' перебираем все файлы в папке 
    
'И так получите дату изменения
'Зачем 2 раза перебирать
Дата = fil.DateLastAccessed

[EducatedFool]

Всё делается одной строкой кода:

filename$ = DIR("C:\Users\Vova\Dropbox\Checklists\*_итоги.csv")

[strannick]

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

Всё делается одной строкой кода:

filename$ = DIR("C:\Users\Vova\Dropbox\Checklists\*_итоги.csv")

Не, так не получится. Во-первых, путь к файлу такой

C:\Users\Vova\Dropbox\Checklists\"тут папка с неопределенным названием"\"и еще одна папка с неопределенным названием"\.

Поэтому в коде ПутьКПапке$ = "C:\Users\Vova\Dropbox\Checklists\" , а ГлубинаПоиска% = 3.
Маска поиска *_итоги.csv тоже не подходит, потому что название файла может быть абсолютно непредсказуемое заранее, только расширение csv. Причем их там может быть неопределенное количество (больше одного точно). Но, как уже писал, по этому пути C:\Users\Vova\Dropbox\Checklists\"т ут папка с неопределенным названием"\"и еще одна папка с неопределенным названием"\ надо взять ЛЮБОЙ файл (только один), который находится по этому пути с расширением csv, вывести его название в ячейку столбца, ну и превратить его в гиперссылку. Поэтому-то я и думал привязаться к выбору из всех файлов в этой папке "самого свежего", встроив в процедуру создания коллекции всех файлов проверку на "свежесть". Больше ничего в голову не пришло. Умом понимаю, что задача решается более простым способом, а сообразить никак.