Функция LastFile предназначена для поиска самого свежего файла в заданной папке
(производится поиск файлов по маске, и из найденных файлов выбирается тот, дата последнего изменения которого максимальна)
Пример использования функции:
Sub ПримерИспользованияФункции_LastFile()
' Ищем на рабочем столе все файлы TXT, и выводим имя самого нового файла.
' Просматриваются папки с глубиной вложения не более трёх.
Dim ПутьКПапке$, СамыйПоследнийФайл$
' получаем путь к папке РАБОЧИЙ СТОЛ
ПутьКПапке = CreateObject("WScript.Shell").SpecialFolders("Desktop")
' получаем путь к самому новому файлу (проверяется дата последнего сохранения)
СамыйПоследнийФайл$ = LastFile$(ПутьКПапке, ".txt", 3)
If СамыйПоследнийФайл$ = "" Then MsgBox "Не найдено ни одного файла", vbExclamation: Exit Sub
MsgBox СамыйПоследнийФайл$, vbInformation, "Самый свежий файл"
End Sub