VBS/WSH/JS - Скрип, который проверяет файлы в папке по дате

[klimat]

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

Суть вопроса



Есть папка 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 не очень

[Iska]

Болванка кода:



Код:

Код: Выделить всё

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder("c:\Temp").Files
	If DateDiff("d", objFile.DateLastModified, Now()) > n Then
		objEmail.Textbody = objEmail.Textbody & objFile.Name & vbCrLf
	End If
Next
Set objFSO = Nothing