VBScript To Find Modified Files in ALL directories
Posted on 2010-09-03
I would like to scan my server for files which have been recently modified i.e. in the last hour. The OS is Win 2K, and the best way to do this from what I can see is through a VBScript. I have created the below but this only searches a single directory, how can I modify it to search sub directories?
Const srcDir = "C:\Docume~1\SearchDirectory"
Const destDir = "C:\Docume~1\filesModified"
hourAgo = DateAdd("h", -1, Now)
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder(srcDir).Files
If f.DateLastModified > hourAgo Then _
f.Copy destDir & "\"