Suchscript

[philipp21]

Option Explicit
Const ORDNERPFAD = "c:\"
Const SUCHSTRING = "Dateina"
Dim Ordner, Datei

Set Ordner = CreateObject("Scripting.FileSystemObject").GetFold er(ORDNERPFAD)

For Each Datei In Ordner.Files
If Instr(LCase(Datei.Name), LCase(SUCHSTRING)) > 0 Then
WScript.Echo Datei.Path
End If
Next


ok kann mal jamand (BIIITTTTEEEE) darauf schauen ab das Script funktionierrt?? aber meine Frage: Wie bringe ich hier die Datumssuche rein, die Variable vor dem Datum und und die ausgabe in einem Dokument!!??