[Foreigner]

Код:

@echo off
setlocal

set "path=%path%;%programfiles%\7-zip"

for /d %%i in (*) do 7z a "%%i.7z" "%%i"