[alpap]

Все-таки с кодом

@echo off

cd/d "%~dp2"

>nul chcp 1251
for /f "delims=" %%i in ('
mshta vbscript:Execute("On Error Resume Next:CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).Write(CreateObject(""Shell.Ap plication"").BrowseForFolder(0,"""",1,""::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"").Self.Path):Close()"^)
') do (
>nul chcp 866& "C:\Program Files\7-Zip\7z.exe" x -t* "%~df2" -o"%%i" -y
)

exit/b 0

работает как надо, просто в консоли смотрел при проверке присутствуют кракозябры в имени, а вот как убрать висящее окно консоли? Пробовал конвертировать в .exe - получается убрать консоль (в скрытом), но гораздо дольше думает меню чем напрямую в bat, реально в батнике убрать или может лучше все в vbs сделать с скрытием окна консоли как-то, подскажите.