[megaloman]

Архивирую семьзипом

Код:

@Echo Off
cls
	Set "OutPref=Screenshots_"
	Set "OutLog=Z:\screenshots.found

	Set "Arc=C:\Program Files\7-Zip\7zG.exe" 

	If "%~1"=="" (
		Echo %~dpnx0 запущен без аргумента &Echo.
		Pause
		Exit /B 2
	)
	
	FOR /F "tokens=2 delims==." %%d in ('WMIC OS GET LOCALDATETIME /VALUE') DO SET "@Tdate=%%d" &Call Set "@Tdate=%%@TDate:~0,8%%"
	2>nul Md "%OutPref%%@Tdate%"
	FOR %%f IN ("*.%~1") DO (
	        >>"%OutLog%" Echo "%~dp0%%f" 		-^> "%~dp0%OutPref%%@Tdate%\"
		>nul Move /Y "%%f" "%OutPref%%@Tdate%\"
	)
	"%Arc%" a -r -sdel "%OutPref%%@Tdate%" "%OutPref%%@Tdate%\"
pause
Exit /B 0