Batch Befehl zum Sortieren von Dateien nach ihrem erstellungsdatum gesucht

----zuerst die Ordner anlegen----
(=10:37:32  D:\temp=)
>for %i in (f:\temp\*.*) do @for /f "tokens=2-3 delims=. " %a in ("%~ti") do @if not exist x:\SortiertesGeraffel\%b\%a <b>@ECHO</b> md x:\SortiertesGeraffel\%b\%a  
md x:\SortiertesGeraffel\2006\08
md x:\SortiertesGeraffel\2006\09
md x:\SortiertesGeraffel\2006\10
md x:\SortiertesGeraffel\2006\12
.....
--- dann die Dateien MOVEn...
for %i in (f:\temp\*.*) do @for /f "tokens=2-3 delims=. " %a in ("%~ti") do <b>@ECHO</b> move "%~fi" x:\SortiertesGeraffel\%b\%a\*.*  
move "f:\temp\Q0rdner.txt" x:\SortiertesGeraffel\2006\08\*.*  
move "f:\temp\Sourcepath.txt" x:\SortiertesGeraffel\2006\10\*.*  
move "f:\temp\hbci201a.doc" x:\SortiertesGeraffel\2006\12\*.*  
....

::---------snipp SortierMirInMonatsOrdner.bat ----
@echo off & setlocal
::---ab hier anpassen
Set "QuellDirFiles=F:\Temp\*.*"  
Set "ZielDirRoot=X:\SortiertesGeraffel"  
::---bis hier anpassen
:: Monatsordner anlegen, wenn nötig
for %%i in (%QuellDirFiles%) do  (
      for /f "tokens=2-3 delims=. " %%a in ("%%~ti") do @if not exist "%ZielDirRoot%\%%b\%%a"  md "%ZielDirRoot%\%%b\%%a"  
)
:: --- dann die Dateien MOVEn...
for %%i in (%QuellDirFiles%) do @for /f "tokens=2-3 delims=. " %%a in ("%%~ti") do move "%%~fi" "%ZielDirRoot%\%b\%a\*.*"  
::---------snapp SortierMirInMonatsOrdner.bat ----

::---------snipp SortierMirInMonatsOrdner.bat ----
@echo off & setlocal
::---ab hier anpassen
Set "QuellDirFiles=F:\Temp\*.*"  
Set "ZielDirRoot=X:\SortiertesGeraffel"  
::---bis hier anpassen
:: Monatsordner anlegen, wenn nötig und dann die Dateien MOVEn...
for %%i in (%QuellDirFiles%) do  for /f "tokens=2-3 delims=. " %%a in ("%%~ti") do (  
         if not exist "%ZielDirRoot%\%%b\%%a"  md "%ZielDirRoot%\%%b\%%a"  
         move "%%~fi" "%ZielDirRoot%\%b\%a\*.*"  
)
::---------snipp SortierMirInMonatsOrdner.bat ----

:: Dies ist eine .bat Datei zum Scannen eines Quellordners nach Dateien mit unterschiedlichem Erstellungsdatum um Sie einheitlich zu sortieren. 
:: Diese Dateien werden dann geordnet nach dem Monat Ihrer Erstellung und dem dazugehörigen Jahr in einen seperaten Ordner namens "Akalf" verschoben.  

@Echo off & Setlocal

:: Festlegen der Variablen für  Quell und Zielverzeichniss...

Set "QuellDirFiles=C:\Temp\*.*"  
Set "ZielDirRoot=C:\Akalf"  

:: Erstellen der Ordner Anhand des Erstellungsdatums aller Dateien...

for %%i in (%QuellDirFiles%) do  (
    for /f "tokens=2-3 delims=. " %%a in ("%%~ti") do Call :Move2XLatedMonthFolder "%%~fi" %%b %%a   
)
goto :eof

:Move2XLatedMonthFolder 
REM Parameter %1="FQ-Quelldateiname"   
REM Parameter %2: JJ-Jahr; Parameter3:MM-Monat
    
If [%3]==[01] set "cMonat=Januar"  
If [%3]==[02] set "cMonat=Februar"  
If [%3]==[03] set "cMonat=Märzen"  
If [%3]==[04] set "cMonat=April"  
If [%3]==[05] set "cMonat=Meiomei"  
If [%3]==[06] set "cMonat=Juno"  
If [%3]==[07] set "cMonat=Juli"  
If [%3]==[08] set "cMonat=August"  
If [%3]==[09] set "cMonat=September"  
If [%3]==[10] set "cMonat=Oktober"  
If [%3]==[11] set "cMonat=November"  
If [%3]==[12] set "cMonat=Dezember"  


if not exist "%ZielDirRoot%\20%2\%cMonat%"  md "%ZielDirRoot%\20%2\%cMonat%"  

:: Verschieben dieser Dateien...

move %1 "%ZielDirRoot%\20%2\%cMonat%"  
goto :eof