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

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Скрип, который проверяет файлы в папке по дате

Настройки темы

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

klimat

Новый участник

Сообщения: 1
Благодарности: 0

Конфигурация

Профиль | Отправить PM | Цитировать

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

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

Отправлено: 19:02, 22-11-2012

Iska

Ветеран

Сообщения: 27449
Благодарности: 8087

Профиль | Отправить PM | Цитировать

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

Код:

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

Отправлено: 19:39, 22-11-2012 | #2