[Georgio]

alpap, здравствуйте!

А с помощью "%~dp2", "%~df2" и "%~dpn2" - что в сущности то же, что и с цифрой 1, но в родном к. меню windows, а у меня через мою программу это уже второй параметр и так я "железно" попадаю в нужную мне для работы директорию. »

Приблизительно понятно.

окно консоли открыто (можно ли его не видеть?) »

Я думаю, что с этим надо будет нам разбираться, когда отладим код.

но в выбранную папку содержимое архива не переносится »

А что переносится? Вся папка целиком? Или ничего не переносится?

созданную папку с содержимым архива с места создания (а это рядом с архивом) переместить в пустую папку которая выбрана или скопировать, а первую удалить »

Попробуйте проще (разархивирование в выбранной папке):

Код:

@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.Application"").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

.

И вопрос: я запаковал этот код в батник, но в коде есть ...vbscript..., не в vbs ли надо паковать случайно, хотя в bat вроде работает »

Всё правильно. Код VBScript запускается из пакетного файла.