[alek2012]

всем привет. Есть такой вот скрипт для отправки почты по маске с расширением pdf из определенной папки.
Мне нужно чтобы скрипт оправлял все файлы по маске которые появились за прошедший 1 час не только из одной папки, а и со всех его подпапок, в том числе и скрытых.
Помогите разобраться как реализовать.


DIM Mas()
Set objShellApp = CreateObject("Shell.Application")
FolderPath = "C:\FOLDER\"
Set objFolderItems = objShellApp.NameSpace(FolderPath).Items()
objFolderItems.Filter 64, "*.pdf"
n = 0
For Each objFolderItem In objFolderItems
n = n +1
ReDIM Preserve Mas(n)
Mas(n)=objFolderItem.Path
Next

Set oMyMail = CreateObject("CDO.Message")
oMyMail.BodyPart.Charset = "windows-1251"
oMyMail.To = "admin@domain.local"
oMyMail.From = "admin@domain.local"

lft=LBound(Mas)
rgt=UBound(Mas)

For i=lft To rgt
oMyMail.AddAttachment Mas(i)
Next

oMyMail.Subject = "нужные файлы во вложении"
oMyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.1.0.155"
omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "domain\user"
omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "true"

oMyMail.Configuration.Fields.Update
oMyMail.Send