'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