'検索対象フォルダ
strPath = "d:"

'比較日付
comDate = "2007/11/21"

'ファイルシステムオブジェクトの取得
Set objFS = CreateObject ("Scripting.FileSystemObject")

Set objFolder = objFS.GetFolder(strPath)

'更新ファイルのみ表示
Call showRecentModFile (objFolder,comDate)

'プロシージャ---------------------------------------------------------
'指定フォルダ内のファイルから、比較日付以降に更新されたファイルのみ表示
'サブフォルダに対しても処理を再帰的に行う。
Sub showRecentModFile (objFolder,comDate)

For Each objFile In objFolder.Files

 'ファイルの最終更新日取得
 fileDate = objFile.DateLastModified
 'Wscript.Echo fileDate
 
 If DateDiff ("d",comDate,fileDate) > 0 then
 Wscript.echo objFile.ParentFolder & "\" & objFile.Name
 End If
Next

'サブフォルダに対して、同じ処理を行う
For Each objSubFolder In objFolder.SubFolders

 Call showRecentModFile (objSubFolder,comDate)

Next

End Sub

'--------------------------------------------------------------------