Код:
Option Explicit
Dim strFolder
Dim strFile
Dim strScript
Dim objFSO
strFolder = "C:\doci\test\"
strFile = "file.ext"
strScript = "x:\internet.vbs"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If DateDiff("d", objFSO.GetFile(strFolder & strFile).DateCreated, Date) > 9 Then _
CreateObject("WScript.Shell").Run strScript
