Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 874
Благодарности: 575

Профиль | Отправить PM | Цитировать


Цитата 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

.
Это сообщение посчитали полезным следующие участники:

Отправлено: 03:37, 15-05-2015 | #2