Dateinamen über CMD abschneiden

myRegExp.Pattern = "^(.*\.\d{4}\.\d{4}).*$"

myRegExp.Pattern = "^.*\.\d{4}\.(\d{4}).*)$"

Set fso = WScript.CreateObject("Scripting.Filesystemobject")  
Set rootFolder = fso.GetFolder("C:\temp\")  

For Each file In rootFolder.Files
	Dim newFilename
	Set myRegExp = New RegExp
	myRegExp.IgnoreCase = True
	myRegExp.Pattern = "^(.*\.\d{4}\.\d{4}).*$"  
	Set myMatches = myRegExp.Execute(file.Name)
	If myMatches.Count >= 1 Then
		Set myMatch = myMatches(0)
		If myMatch.SubMatches.Count >= 1 Then
			newFilename = myMatch.SubMatches(0)
			file.name = newFilename
		End If
	End If
Next

@echo off & setlocal enabledelayedexpansion
set "Ordner=D:\Dein Ordner"  

pushd "%Ordner%"  
for /f "delims=" %%i in ('dir /b/a-d') do (  
    set "Name=%%i"  
    echo ren "%%i" "!Name:~,48!"  
)
popd
pause