Set oFSO = CreateObject("Scripting.FileSystemObject")
'on error resume next
Set oFolder = oFSO.GetFolder(wscript.arguments(0))
Recurse(oFolder)
Sub Recurse(oFldr)
dim bShow
dim sTxt
wscript.echo "F:" & oFldr
bShow=false
If HasFolders(oFolder) Then
For Each oSubFolder In oFldr.SubFolders
Recurse oSubFolder
Next
For Each oFile In oFldr.Files
'wscript.echo "FI: " & oFile & vbtab & DATEDIFF("d",oFile.DateLastModified,Now())
if oFile.Name="-!RecOveR!-tvnyt++.Txt" then
bShow=true
end if
'if IsDate(oFile.DateLastModified) then
if DATEDIFF("d",oFile.DateLastModified,Now())=0 then
sTxt=sTxt & oFile & vbCrLf
end if
'end if
Next
if bShow then wscript.echo sTxt
End If
End Sub
Function HasFolders(oFolder)
On Error Resume Next
HasFolders = (oFolder.SubFolders.Count >= 0)
End Function