Dateien nach Datum sortieren

:: -----------snipp ProcessLast.bat [Parameter1: Anzahl]
@echo off & setlocal
REM Kein Parameter angegeben? Dann "1" als Anzahl annehmen  
If [%1]== %0 1
if not exist "H:\My Databases\test_xcopy\%date%" mkdir "H:\My Databases\test_xcopy\%date%"  
For /L %%i in (1,1,%1) do call :doSomething
goto :eof

:doSomething
for /f %i in ('dir /b /o:d error*.txt') do @Set "ThisErrorFile=%%i"  
REM Die neueste Errorxxxxx.txt steht in der Variablen %ThisErrorfile%
REM und nun COPY, MOVE, RENAME oder 7z oder Rar mir diese Datei... Beispiel MOVE:
Move "%ThisErrorFile%  "H:\My Databases\test_xcopy\%date%\*.*"  
goto :eof

:.------snipp CopyLast.bat 
@echo off & setlocal
:: Was variabel bleiben sollte, ist die Anzahl --->Parameter 1; Default 1
IF [%1]== %0 1
:: ------- hier soll eine Sortierung im aktuellem Ordner erfolgen und dann die letzten 2 Dateien kopiert werden
::Hmmm, die Vorgabe "aktueller Ordner" ist gefährlich.. geh lieber von "immer ein bestimmter Ordner aus. 
Set "QuellOrdner=H:\testxcopy"  
:: und den ZielOrdner unterstellen wir auch mal als fest
Set "ZielOrdner=H:\My Databases\test_xcopy"  
If not exist "%QuellOrdner%" (  
    echo QuellOrdner nicht vorhanden
    Pause
    Goto :eof
)    
PushD "%QuellOrdner%"  
For /L %%i in (1,1,%1) do call :doSomething
If exist "%Zielordner%\%date%" copy "%QuellOrdner%\robot.txt"  "%ZielOrdner\%date%\*.*"   
PopD
goto :eof

:doSomething
for /f %%i in ('dir /b /o:d Kensingtonerr*.txt') do @Set "ThisErrorFile=%%i"  
REM Die neueste KensingtonErrorxxxxx.txt steht in der Variablen %ThisErrorfile%
REM und nun COPY, MOVE, RENAME oder 7z oder Rar mir diese Datei... Beispiel COPY:
::erst jetzt das...%date%-Verzeichnis anlegen
If not exist "%Zielordner\%date%" md "%Zielordner\%date%"  
Copy "%ThisErrorFile%  "%Zielordner\%date%\*.*"  
goto :eof

::------snipp CopyLast.bat 
@echo off & setlocal
:: Was variabel bleiben sollte, ist die Anzahl --->Parameter 1; Default 1
IF [%1]== %0 1
:: ------- hier soll eine Sortierung im aktuellem Ordner erfolgen und dann die letzten 2 Dateien kopiert werden
::Hmmm, die Vorgabe "aktueller Ordner" ist gefährlich.. geh lieber von "immer ein bestimmter Ordner aus. 
Set "QuellOrdner=Z:\testxcopy"  
:: und den ZielOrdner unterstellen wir auch mal als fest
Set "ZielOrdner=Z:\My Databases\test_xcopy"  
If not exist "%QuellOrdner%" (  
    echo QuellOrdner nicht vorhanden
    Pause
    Goto :eof
)    
PushD "%QuellOrdner%"  
For /L %%i in (1,1,%1) do call :doSomething %%i
If exist "%Zielordner%\%date%" copy /y "%QuellOrdner%\robot.txt" "%ZielOrdner%\%date%\*.*" >nul  
PopD
goto :eof

:doSomething
set /a Nr=%1 - 1
set ThisErrorFile=
if %Nr%==0 (
	for /f "delims=" %%i in ('dir /b /o:-d Kensingtonerr*.txt') do if not defined ThisErrorFile @Set "ThisErrorFile=%%i"  
	) else (
	for /f "skip=%Nr% delims=" %%i in ('dir /b /o:-d Kensingtonerr*.txt') do if not defined ThisErrorFile @Set "ThisErrorFile=%%i"  
)	
REM Die %%L. neueste KensingtonErrorxxxxx.txt steht in der Variablen %ThisErrorfile%
REM und nun COPY, RENAME oder 7z oder Rar mir diese Datei... Beispiel COPY:
::erst jetzt das...%date%-Verzeichnis anlegen
If not exist "%Zielordner%\%date%" md "%Zielordner%\%date%"  
Copy "%ThisErrorFile%"  "%Zielordner%\%date%\*.*" > nul  
goto :eof