Страница: 1 |
Вопрос: Как найти последний актуальный файл? | Добавлено: 30.11.06 13:31 |
Автор вопроса: ![]() |
Доброе время суток!
Вот такая проблема: Нужен макрос в Excel, который по известному пути к папке вытащит оттуда файл с заданным разрешением, но тот который был изменен последним -т.е. наиболее актуальный... Т.е. я так понимаю что нужно как-то получить список aqkjd заданного разрешения отсортировать их по дате а затем выбрать тот в котором производились последние изменения. Как это сделать? |
Ответы | Всего ответов: 1 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 30.11.06 14:46 |
Переделано из хелпа:
Set fs = Application.FileSearch
With fs .LookIn = "C:\My Documents" .FileName = "*.txt" If .Execute(SortBy:=msoSortByLastModified, _ SortOrder:=msoSortOrderDescending) > 0 Then MsgBox "Наиболее актуальный файл: " &.FoundFiles(1).Name Else MsgBox "Не найдено файлов." End If End With |
Страница: 1 |
|