Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.GetFile("Dein DateiPfad")
 
lastmodified = file.DateLastModified '<= gibt dir das Datum zurück an dem die 
' Datei zuletzt geändert wurde

 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set folder = fso.GetFolder("Dein DateiPfad")
   Set file = folder.Files
   For Each f1 in file
      s = s & f1.name 
      s = s & "  "
   Next
   Dateiliste = s
   msgbox Dateiliste