1. Skip to Menu
  2. Skip to Content
  3. Skip to Footer

Проверка наличия файлов (скрипт)

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

В данном скрипте необходимо указать свои данные в тех местах, где текст выделен красным цветом.

-------------------------------------------- Начало скрипта --------------------------------------------------

Set filesys = CreateObject("Scripting.FileSystemObject")

Set DataFolder = filesys.GetFolder("C:\foldername")
Set DataFiles = DataFolder.Files
NumberOfFiles = DataFiles.Count

if NumberOfFiles > 0 then

SendMail "You have new message(s)!", "There is " & NumberOfFiles & " message(s) for you!","This email address is being protected from spambots. You need JavaScript enabled to view it.", "This email address is being protected from spambots. You need JavaScript enabled to view it."

end if

Sub SendMail (strSub, strBody, strTo, strFrom)
On Error Resume Next
strSMTP = "mailserver name"
set objEmail = CreateObject("CDO.Message")
objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSub
objEmail.Textbody = strBody
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
objEmail.Configuration.Fields.Update
objEmail.Send
End sub

-------------------------------------------- Конец скрипта --------------------------------------------------

 

Комментарии   

 
0 #1 Евгений 03.12.2014 13:26
а как сделать чтоб если в этой папке была вложена папка с файлами чтоб он ее тоже проверил на наличие файлов, то получается если пользователь создаст папку и вложит файлы скрипт эти файлы уже не увидет
Цитировать
 

Добавить комментарий