[Iska]

в каталог, содержащий текущую дату »

А где должен располагаться сам этот каталог? В текущем?

Примерно так (если не брать извращения с проверкой наличия файлов по «for» вместо «exist»):

читать дальше »

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sFolder=%~1

if defined sFolder (
	if exist "%sFolder%\*.7z" (
		call :GetPathTo7Zip
		
		if defined PathTo7Zip (
			if exist "!PathTo7Zip!7z.exe" (
				"!PathTo7Zip!7z.exe" x "%sFolder%\*.7z" -o%date% -y *
			) else (
				echo Can't find 7-Zip executive in [!PathTo7Zip!]
			)
		) else (
			echo Can't find path to 7-Zip executive
		)
	) else (
		echo Not found any 7-zip archivies in [%sFolder%]
	)
) else (
	echo Usage: %~nx0 ^<Path^>
)

endlocal
exit /b 0

:GetPathTo7Zip
	setlocal enableextensions enabledelayedexpansion
	set sOut=%~0
	
	for /f "usebackq tokens=3 delims=	" %%i in (
		`reg.exe query "HKEY_LOCAL_MACHINE\SOFTWARE\7-Zip" /v "Path" 2^>nul ^| find.exe /i "Path"`
	) do set sPath=%%i
	
	endlocal & set %sOut:~4%=%sPath%
	exit /b