Backuproutine

@echo off & setlocal
set "BackupDir=D:\Backups"  
set "ArchivDir=Z:\Archiv"  
set Neueste=
for /f "delims=" %%i in ('dir "%BackupDir%\*.zip" /b /a-d /o-d') do if not defined Neueste set "Neueste=%%i"  
echo move "%BackupDir%\%Neueste%" "%ArchivDir%" && echo del "%BackupDir%\*.zip" || echo Fehler beim Verschieben von %Neueste%  

@echo off & setlocal
set "BackupDir=D:\Backups"  
set "ArchivDir=Z:\Archiv"  
set Zuletzt=NA
for /f "delims=" %%i in ('dir "%BackupDir%\*.zip" /b /a-d /o-n') do call :ProcessFile "%%i"  
::nächstes "echo" löschen 
echo del "%BackupDir%\*.zip"  
goto :eof
:ProcessFile
for /f "delims=--" %%f in ('echo %~n1') do (  
	if /i "%%f"=="%Zuletzt%" goto :eof  
	set "Zuletzt=%%f"  
	::nächstes "echo" löschen 
	echo move "%BackupDir%\%~1" %ArchivDir% || echo Fehler beim Verschieben von %~1  
)

@echo off & setlocal
set "BackupDir=D:\Backups"  
set "ArchivDir=D:\Archiv"  
set Zuletzt=NA
for /f "delims=" %%i in ('dir "%BackupDir%\*.zip" /b /a-d /o-n') do call :ProcessFile "%%i"  
::nächstes "echo" löschen 
echo del "%BackupDir%\*.zip"  
goto :eof
:ProcessFile
for /f "tokens=1,2,3 delims=-" %%f in ('echo %~n1') do (  
    if /i "%%f-%%g-%%h"=="%Zuletzt%" goto :eof  
    set "Zuletzt=%%f-%%g-%%h"  
    ::nächstes "echo" löschen 
    echo move "%BackupDir%\%~1" %ArchivDir% || echo Fehler beim Verschieben von %~1  
)