Цитата alpap:
Распаковываю архив в папку
@echo off
cd /d "%~dp2"
"C:\Program Files\7-Zip\7z.exe" x -t* "%~df2" -o"%~dpn2" -y
exit »
|
Цитата alpap:
Теперь надо, наверное, вызвать explorer.exe выбрать в компьютере папку или создать новую и переместить туда - "%~d?(??)2". »
|
Если б ещё знать, что такое "%~dp2", "%~df2" и "%~dpn2" в контексте данного кода

...
Код пакетного файла:
Код:

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