Болванка кода:
Код:
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
