VBA Сохранить текущий файл с датой, но удалить старые файлы с тем же именем, но с более старой датой?

Question

Вот мой текущий код:

Dim strDestinationFile As String
Dim The_file As String
MyOldName = WHAT CAN I PUT HERE <--
MyNewName = strDestinationFile

Sheets("NAME OF SHEET").Select
Range("I2").Select

The_file = ActiveCell.Value

strDestinationFile = "FILE PATH NAME"
Sheets("NAME OF SHEET").Select
ActiveWorkbook.SaveAs Filename:=strDestinationFile
Kill MyOldName

Будет ли это работать, если я введу или обозначу правильный путь и то, что я хочу удалить в разделе "MyOldName = "? В основном у меня есть VBA, который совпадает с листом с самой последней датой (т.е. имя файла: XXXX-10-11-17.xlsm), но у меня могут быть предыдущие файлы с тем же начальным именем, но с другой датой (то есть: XXXX-10-10-17), который я хочу удалить после сохранения.

Это возможно?

Спасибо за помощь

Answer 1

Ссылка: MSDN Dir() Функция

Вот основной поиск Dir() с сопоставлением с образцом.

Const RootDir As String = "C:\Reports\"
Dim MyFile, MyPath, MyName As String

MyFile = Dir(RootDir & "*??-??-??.xlsx")

Do While MyFile <> ""
    ' Insert Code
    MyFile = Dir()
Loop

Хотя это и не полный ответ, этого должно быть достаточно, чтобы вы начали.