'v3.3*****************************************************
' File:   DateienVonHeute.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' Listet alle Dateien, bei denen das Änderungsdatum
' dem aktuellen Datum entspricht
'*********************************************************

Option Explicit

Dim WSHShell, fso
Dim oFolders, oSubFolder, oFiles, Folder
Dim i, Text, Path

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso      = WScript.CreateObject("Scripting.FileSystemObject")

Path = "d:\setup"
Path = "."          ' Verzeichnis, in dem sich das Skript befindet
Path = "c:\temp"

if not fso.FolderExists( Path ) then
  MsgBox UCase(Path) & "   existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName
  WScript.Quit
End If

Text = UCase( Path ) & "   enthält folgende Dateien von heute:" & vbCRLF

Set oFolders = fso.GetFolder( Path )  
Set oFiles   = oFolders.Files
For Each i In oFiles
  if FormatDateTime( i.DateLastModified ,2) = FormatDateTime( now() ,2) then
    Text = Text & i.Name & vbTab & FormatDateTime( i.DateLastModified ,2) & vbCRLF
  End If
Next
Set oFiles   = nothing
Set oFolders = nothing

MsgBox Text

'	i.Path
'	i.Name
'	i.Type
'	i.DateCreated
'	i.DateLastAccessed
'	i.DateLastModified
'	i.Size