Скрип, который проверяет файлы в папке по дате

Доброго времени. Прошу прощения, если такое уже подымалось, но полистав форум не смог найти ответ именно на свой вопрос.
Суть вопроса

Есть папка C:\test\
В папке файлы. Нужно проверять скриптом файлы по дате изменения, и если дата изменения больше n дней, то отправлять на почту письмо с текстом, какой именно файл "старше" n дней.
Собственно с частью почты разобрался, а как перебирать все файлы в папке и мониторить по дате и потом передать этот параметр (имя файла) в текст письма, например, не смог понять.
Собственно код, который за отправку отвечает-проверено, работает

Код:

Sub SendMail()

Const EmailFrom = "user@server.com"       'от кого будет отправляться e-mail

Const EmailPassword = "1234566"           'пароль от e-mail

Const strSmtpServer = "mail.server.com"   'smtp сервер

Const EmailTo = "user2@server.com"         'Кому будет отправляться e-mail

Set objEmail = CreateObject("CDO.Message")

objEmail.From = EmailFrom

objEmail.To = EmailTo

objEmail.Subject = "тема письма"

objEmail.Textbody = "текст письма"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@server.com"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.com"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

objEmail.Send

WScript.Quit

End Sub

Спасибо, буду благодарен за помощь!
Прошу не пинать, в vbs не очень