VBScript copies files modified up to an hour ago
----------------------------------------------------------------------Const srcDir = "c:\images"
Const destDir = "c:\SomeWittyName"
hourAgo = DateAdd("h", -1, Now)
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder(srcDir).Files
If LCase(fso.GetExtensionName(f)) = "jpg" _
And f.DateLastModified > hourAgo Then _
f.Copy destDir & "\"
Next 'f
