Dim Abfrage
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.Getfolder(".")

Abfrage = MsgBox("Alle Dateien im Verzeichnis " & folder & vbLf & "werden umbenannt in den Datumsstempel der Datei." & vbLf & "Format 'JJJJ-MM-TT hh.mm.ss.xxx'." & vbLf & "Wirklich Ausführen ?",4,"File Renamer")

if Abfrage=vbNo then 
    MsgBox "Umbenennung abgebrochen !"
    WScript.Quit
end if

'Zeitstempel der Datei auslesen und als Dateiname verwenden
for each file in folder.Files
varFileName = year(file.datelastmodified) & "-" & right("0" & month(file.datelastmodified),2) & "-" & right("0" & day(file.datelastmodified),2) & " "
varFileName = varFileName & right("0" & hour(file.datelastmodified),2) & "." & right("0" &minute(file.datelastmodified),2) & "." & right("0" & second(file.datelastmodified),2) & Right(file.Name,4)

'Abbrechen falls schon eine gleiche Datei existiert
If fso.FileExists(VarFileName) Then 
  MsgBox "Die Datei " & File & " konnte nicht umbenannt werden." & vbLf & "Der Dateiname " & VarFileName & " existiert bereits." & vbLf & "Vorgang Abgebrochen !"
WScript.Quit
end if

'Datei umbenennen
file.Name = VarFileName 

next

MsgBox "Umbenennung durchgeführt"