Find all files in a Folder structure that modified Today

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