Batch um Dateien umzubenennen anhand der ersten 8 Zeichen der Datei.

Hallo zusammen,
ich bin neu bei Administrator.de und habe wenig Ahnung von Programmierung.
Bin eigentlich nur Enduser und arbeite mit XP Prof.

Ich produziere täglich etwa 25 bis 30 Dateien mit den Dateinamen
01.dat, 02.dat..........30dat . 01, 02 usw. soll per Batch durch die
ersten 8 Zeichen der jeweiligen Datei ersetzt werden. Die Dateien
sollen dann so aussehen: 12345678.dat

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

pushd "%Ordner%"  
for /f "delims=" %%i in ('dir /b /a-d *.%Typ%') do call :ProcessFile "%%i"  
popd
goto :eof

:ProcessFile
set /p Zeile=<%1
set "Name=%Zeile:~,8%"  
if not exist "%Name%%~x1" ren %1 "%Name%%~x1"  
goto :eof