Batch - Dateien umbenennen Verschieben und Dateien von mit bestimmten Zeichen im Dateinamen von der Umbenennung ausschliessen

Hallo Ich hab eine ziemlich profane Frage zum Umbenennen und Verschieben mehrerer Dateien. Also das Namensmuster der zu bennenenden Dateien ist Wie folgt...

DATEI: "Dateie20070521_123456.dbf"
jedoch gibt es auch eine sogenannte Peakdatei dazu die sich minimal von der eigentlich benötigten Datei unterscheidet.

Peakdatei: "Dateie20070521_123456pk.dbf"

Von den hier beschriebenen Dateien soll jedoch nur die Erste umbenannt werden und in ein vorgegebenes Verzeichnis(z.b. von C:\Daten nach D:\Archiv) verschoben werden.
Die Umbennung sollte So aussehn:
"Dateie20070521_123456.dbf" => "Dateie.dbf"

Ich bin schlicht und ergreifend zu blöd den Namens-String nach "pk" zu filtern und die Datei von der Umbennung auszuschliessen meine aber dass man das irgendwie sehr einfach lösen können müsste. Ich wär sehr glücklich wenn sich ein Batchexperte mal die 5 Minuten nimmt und mir ein Beispiel hier reinposted. Danke für Hilfe im Vorraus.


Ich kenne mich zwar mit Programmierung in versch. Sprachen aus möchte mich aber jetz für diese Aufgabe nich auch noch mit derSyntax auseinandersetzen. Einem Versierten Shell-Coder dürfte es allerdings sehr leicht fallen mein Problem zu lösen nehme ich an.

Meine Idee wenn ichs in VB machte wär das ganze mit nem Stringvergleich zu filtern dann umzubenennen nur möchte ich den Komfort einer Batch gerne benutzen da ich so die Verzeichnisse immer mal schnell anpassen kann und nicht erst das ding neu Kompilieren muss.

ren Dateie???????????????.dbf ...

@echo off & setlocal
::
set src_dir=c:\daten
set dest_dir=d:\archiv

::
for /f  %%a in ('dir /b *.dbf ^| findstr /v /l "pk"') do (  
move "%src_dir%\%%a" "%dest_dir%"  
ren "%dest_dir%\%%a" "%dest_dir%\Dateie.dbf"  
)

...
ren "%dest_dir%\%%a" "%dest_dir%\%%a:~0,6"  
..

@echo off & setlocal EnableDelayedExpansion
::
set src_dir=c:\daten
set dest_dir=d:\archiv 
::
for /f  %%a in ('dir /b *.dbf ^| findstr /v /l "pk"') do (  
move "%src_dir%\%%a" "%dest_dir%"  
Set "DateiName=%%~a"  
ren "%dest_dir%\%%a" "!Dateiname:~0,6!.dbf"  
)

@echo off & setlocal 
Set dir=c:\daten
set dest_dir=d:\archiv 
::
for /f  %%a in ('dir /b *.dbf ^| findstr /v /l "pk"') do  Goto :MachwasMit "%%a"  
goto :eof

:MachwasMit Parameter1 ist der Dateiname + Extension (kein Pfad, kein Lw)
move "%src_dir%\%~1" "%dest_dir%"  
Set "DateiName=%~n1"  
ren "%dest_dir%\%Dateiname:~0,6%.dbf"  
)