Einfache Umbennung in VbScriptGelöst
Dim VarFileName set fso = CreateObject("Scripting.FileSystemObject") set folder = fso.Getfolder("Z:\Bilder\Archiviert\ZumSortieren\XNVIEW\Batch") for each file in folder.Files i=i+1 'Zähler varFileName= year(Now()) & "-" & month(Now()) & "-"