Hallo,

habe ein Problem bei VBS Programmierung. Ich hoffe es kann mir jemand helfen.

Funktion des Programms:

das Programm soll im Ordner "messdaten" der eine anzahl von .xlsx
Dateien enthält (Täglich kommt eine hinzu) die aktuellste Datei herausfinden und sie mit dem
aktuellen Datum von heute vergleichen.

Wenn diese Datei vorhanden ist geschieht nichts(0 wird ausgegeben), ansonsten
wird eine 1 ausgegeben. Diese 1 oder 0 wird an eine .bat Datei
weitergegeben die eine txt Datei erzeugt im falle der 1.

Bisher funktioniert das nur wenn ich den Dateinamen (test20140429.xlsx) genau angebe.

Das bedeutet ich müsste jeden Tag den Dateinamen um das Datum ändern.

Frage:

Wie bekomme ich es hin dass das Programm immer nach der aktuellen Datei sucht ohne das
Datum von heute händisch in den Quellcode einzutragen ?

Programmcode:

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder("d:\messdaten")

for each file in folder.Files

if file.name = "test20140429.xlsx" Then

if file.datelastmodified < Date() then varExitCode = 0 else varExitCode = 1

end if

next

WScript.Quit varExitCode


Ich danke euch jetzt schon für eure Hilfe

MFG Max

Problem hat sich erledigt. Danke trotzdem an alle die sich Gedanken gemacht haben.