| Вопрос: Как найти последний актуальный файл? | Добавлено: 30.11.06 13:31 |
Автор вопроса:  robinLib
|
|
Доброе время суток!
Вот такая проблема: Нужен макрос в Excel, который по известному пути к папке вытащит оттуда файл с заданным разрешением, но тот который был изменен последним -т.е. наиболее актуальный... Т.е. я так понимаю что нужно как-то получить список aqkjd заданного разрешения отсортировать их по дате а затем выбрать тот в котором производились последние изменения. Как это сделать? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  GenyaA Вопросов: 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 |