Нужно при каждом открытии excel книги удалять файлы с расширением log, дата создания которых меньше, чем текущая дата минус месяц, из той же папки, в которой находится книга.

Получение всех файлов с расширением log не вызывает никаких проблем

With Application.FileSearch
.NewSearch
.LookIn = strFolderPAth
.FileType = msoFileTypeAllFiles
.Filename = "*.log"
End With
If Application.FileSearch.Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To Application.FileSearch.FoundFiles.Count

'Здесь надо проверить дату создания и удалить файлы.

Next i
End If


и удалить файл при помощи kill можно, но встает вопрос как получить дату создания файла????

Помоги, пожалуйста, ничего не приходит в голову.
спасибо

Спасибо всем
Решение найдено!